Buongiorno a tutti,
ho scritto una macr osemplice semplice per importare dei dati su un pc con office2003, ho provato a far lavorare la stessa macto su offic2010 ma non funziona più ...
Prima di rimettermi a scrivere la macro da zero vorrei capire se sbaglio qualcosa io o se è proprio diversa la sintassi per l'iportazione di file ...
Di seguito metto il listato del mio VBA ...
codice:
rivate Sub CommandButton1_Click()
'
Dim address As String
Dim datoLab As String
Dim fil As String
Dim completa As String

address = Sheets("Importazione_dati").Cells(2, 2)
datoLab = Sheets("Importazione_dati").Cells(3, 2)
fil = datoLab & ".txt"
completa = address & "\" & fil
'

'
    ChDir address
    Workbooks.OpenText Filename:=completa, Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, _
        Comma:=True, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 9), _
        Array(2, 1), Array(3, 1), Array(4, 9), Array(5, 9), Array(6, 9)), TrailingMinusNumbers _
        :=True
    Sheets(datoLab).Select
    Sheets(datoLab).Copy Before:=Workbooks("Base_di_partenza_con_Macro4.xls").Sheets("Analisi")
    ActiveWindow.WindowState = xlNormal
    With ActiveWindow
        .Top = 197.8
        .Left = -32
    End With
    Windows(fil).Activate
    ActiveWindow.Close
    ActiveWindow.WindowState = xlMaximized
    ActiveWindow.SmallScroll Down:=-21
    
    Sheets(datoLab).Range("A1:B14").Delete Shift:=xlUp
    Sheets("Importazione_dati").Select
    
End Sub
Non è qualcuno riesce a darmi qualche dritta?

Grazie mille in anticipo,
Fabio