Moderatori: Anthony47, Flash30005
il gestionale da dove viene estratto il file chiamato tmp005107244.txt genera ogni volta un file con nome diverso. C'è possibilità di "dire" semplicemente di considerare il file attivo?
Sub Apre_Seleziona_File()
Nome_Scelto = Application.GetOpenFilename
Workbooks.Open Filename:=Nome_Scelto
File_Aperto = ActiveWorkbook.Name
Windows(File_Aperto).Activate
End Sub
Workbooks.Open filename:= _
"C:\Documents and Settings\SimonaP\Documenti\ACQUISTI\03 - SITUAZIONE FORNITORI\EC.xls" _
, UpdateLinks:=3
Windows("tmp005107244.txt").Activate
Nome_Scelto = Application.GetOpenFilename
'...... Aggiunte
If Nome_Scelto = False Then
MsgBox "Elaborazione interrotta: non è stao scelto nessun file"
Exit Sub
End If
'...... Aggiunte
Workbooks.Open Filename:=Nome_Scelto ' ***********RIGA EVIDENZIATA***********
File_Aperto = ActiveWorkbook.Name
Windows(File_Aperto).Activate
Workbooks.Open Filename:=Nome_Scelto
Sub MacEC()
Nome_Scelto = Application.GetOpenFilename
'...... Aggiunte
If Nome_Scelto = False Then
MsgBox "Elaborazione interrotta: non è stato scelto alcun file"
Exit Sub
End If
'...... Aggiunte
Workbooks.Open Filename:=Nome_Scelto
File_Aperto = ActiveWorkbook.Name
Windows(File_Aperto).Activate
Cells.Select
Selection.Copy
Windows("EC.xls").Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("E-C").Select
End Sub
Torna a Applicazioni Office Windows
Inserire add.in nella barra di avvio veloce in excel 2003 Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 4 |
Excel: problema con date se devo unirle a testi Autore: valle1975 |
Forum: Applicazioni Office Windows Risposte: 5 |
confrontare e evidenziare 2 fogli excel Autore: niccia |
Forum: Applicazioni Office Windows Risposte: 7 |
Visitano il forum: Nessuno e 7 ospiti