|
Scusate il disturbo, ma sono in una crisi di programmazione!!!!
Mi hanno chiesto di scrivere un programma visual basic che apre dei file excel presenti in una cartella e il loro contenuto deve essere riscritto in un unico file.
Ho fatto qualcosa ma non funziona, non riesco a copiare i dati nel nuovo file
Potete per favore dirmi dove sbaglio?
Qui di seguito vi scrivo il programma.
Grazie mille
Dim mFile As Excel.Application, oBook As Excel.Workbook, oSheet As Excel.Worksheet, vValue As Variant
Dim strFile As String
' apri l'istanza di excel
Set mFile = New Excel.Application
mFolder = "d:\lavoro\lavoro\"
strFile = Dir(mFolder & "*.xls")
i = 1
j = 1
partFile_prec = Left$(strFile, 20)
partFile = Left$(strFile, 20)
Do While strFile <> ""
If partFile = partFile_prec Then
Set oBook = mFile.Workbooks.Open(mFolder & strFile)
' Set oSheet = oBook.Worksheets(1)
Set foglioExcel = Excel.Worksheets.Item(1)
foglioExcel.Activate
Set exWs = mFile.Worksheets(1)
'conta il numero di righe
' Windows(mFolder & strFile).Activate
lastCol = exWs.UsedRange.Columns.Count
lastRow = exWs.UsedRange.Rows.Count
ActiveSheet.Range("a" & i, ActiveSheet.Cells(lastRow, lastCol)).Select
Cells.Select
Range("A" & i & ":CD" & lastRow).Select
Selection.Copy
Cells.Select
Range("A" & j).Activate
Application.CutCopyMode = False
Selection.Copy
Windows("Accodamento1.xls").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
j = j + lastRow
i = 2
End If
' leggi il successivo xls
strFile = Dir
partFile = Left$(strFile, 20)
Set oSheet = Nothing
Set oBook = Nothing
' chiudi l'istanza excel aperta
mFile.Quit
Set mFile = Nothing
Loop
| 
