[EXCEL] errori su Macro che non risolvo

[paolociacci]

ho due errori che non riesco a capire su due macro diverse ma nello stesso foglio
Primo errore:
questa macro funziona regolarmente ma quando salvo il file con un nome diverso non si aggiorna in automatico l'istruzione "Windows("2 TURNO.xls").Activate" restando il nome del file originario e non aggiornandosi al nuovo nome del file ad esempio non diventa 3 TURNO.xls per permettere alla macro di funzionare

Sub importa()
'
' importa Macro
' Macro registrata il 10/09/2008 da administrator
'

'
Range("A1").Select
Sheets("ele").Select
Workbooks.OpenText Filename:="http://accio.altervista.org/upload/mcc00.txt", _
Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False _
, Comma:=False, Space:=False, Other:=True, OtherChar:="|", FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array _
(20, 1), Array(21, 1), Array(22, 1), Array(23, 1), Array(24, 1), Array(25, 1), Array(26, 1), _
Array(27, 1), Array(28, 1)), TrailingMinusNumbers:=True
Range("A1:AB610").Select
Selection.Copy
Windows("2 TURNO.xls").Activate
Range("A4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Windows("mcc00.txt").Activate
ActiveWorkbook.Close
Sheets("risultati").Select
End Sub

Questa seconda macro invece funziona perfettamente su Office 2007 con cui l'ho creata mentre se la faccio eseguire con Excel 2003 mi da il seguente errore: "err. runtime 438 Proprietà o metodo non supportati dall'oggetto"
il blocco avviene subito alla seconda istruzione

Sub orda_punti()
'
' orda_punti Macro
'

'
Range("A20:S31").Select
ActiveWorkbook.Worksheets("class.aut.").Sort.SortF ields.Clear
ActiveWorkbook.Worksheets("class.aut.").Sort.SortF ields.Add Key:=Range( _
"S20:S31"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("class.aut.").Sort
.SetRange Range("A20:S31")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 22
Range("A35:S46").Select
ActiveWorkbook.Worksheets("class.aut.").Sort.SortF ields.Clear
ActiveWorkbook.Worksheets("class.aut.").Sort.SortF ields.Add Key:=Range( _
"S35:S46"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("class.aut.").Sort
.SetRange Range("A35:S46")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 8
Range("A17").Select
End Sub

boh! help!

[luck]

Originariamente inviato da paolociacci
ho due errori che non riesco a capire su due macro diverse ma nello stesso foglio
Primo errore:
questa macro funziona regolarmente ma quando salvo il file con un nome diverso non si aggiorna in automatico l'istruzione "Windows("2 TURNO.xls").Activate" restando il nome del file originario e non aggiornandosi al nuovo nome del file ad esempio non diventa 3 TURNO.xls per permettere alla macro di funzionare

ciao paolo, fortuna ci sei tu a movimentarci le giornate...
allora... è giusto, il riferimento NON DEVE aggiornarsi, sennò addio VBA...
La soluzione sta nell'usare una variabile di appoggio.
alla prima riga inserisci questa istruzione:

NomeFileCorrente = thisworkbook.Name

e al posto di Windows("2 TURNO.xls").Activate lo sostituisci con

Windows(NomeFileCorrente ).Activate

dovrebbe funzionare...

Questa seconda macro invece funziona perfettamente su Office 2007 con cui l'ho creata mentre se la faccio eseguire con Excel 2003 mi da il seguente errore: "err. runtime 438 Proprietà o metodo non supportati dall'oggetto"
il blocco avviene subito alla seconda istruzione

boh! help!

gli ordinamenti via macro sono sempre state delle brutte bestie...
vado a naso, non ricordo bene, prova a togliere l'ActiveWorkbook e partire solo da Worksheets("...

in caso ci guardo meglio...

ciao ciao

[paolociacci]

grazie come al solito
ho risolto con il tuo suggerimento l'apertura del file
mentre per eseguire l'ordinamento ho preferito ricreare la macro direttamente da ex 2003

[luck]

Originariamente inviato da paolociacci
grazie come al solito

prego...

ho risolto con il tuo suggerimento l'apertura del file

ottimo! ha inginocchiato pure me al tempo, sta questione...adesso non uso più nomi di file o percorsi assoluti nelle macro...

mentre per eseguire l'ordinamento ho preferito ricreare la macro direttamente da ex 2003

hai fatto bene, poco canonico ma si risparmia tempo...

ciao ciao