Witam,
Mam problem z poniższym kodem :
"Dim zbiorcze As worksheet
Dim wpisywane As Workbook
Dim fPath As String
Dim fXLSX As String
Dim NR As Long
fPath = "E:\test 3\"
Set zbiorcze = ThisWorkbook.Sheets(1)
NR = zbiorcze.Range("c" & Rows.Count).End(xlUp).Row + 1
fXLSX = Dir(fPath & "*.xlsx")
Do While Len(fXLSX) > 0
Set wpisywane = Workbooks.Open(fPath & fCSV)
wpisywane.Activate
Range("a1").Select
Selection.Copy
zbiorcze.Activate
Cells(NR + 1, 3).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlnone, skipblanks _
:=False, Transpose:=False
(...)
wpisywane.Close False
NR = NR + 1
fCSV = Dir
Loop
End Sub"
Kod otwiera pliki xlsx we wskazanym folderze i kopiuje dane ze wskazanych komórek, umieszczając je w kolejnych wierszach, po jednym wierszu na plik.
Jak zrobić, żeby dane były zapisywane w pliku, który nie musiałby znajdować się w tej samej lokalizacji ? Da się to jakoś łatwo zmodyfikować?
Z góry dziękuję za pomoc.
Mam problem z poniższym kodem :
"Dim zbiorcze As worksheet
Dim wpisywane As Workbook
Dim fPath As String
Dim fXLSX As String
Dim NR As Long
fPath = "E:\test 3\"
Set zbiorcze = ThisWorkbook.Sheets(1)
NR = zbiorcze.Range("c" & Rows.Count).End(xlUp).Row + 1
fXLSX = Dir(fPath & "*.xlsx")
Do While Len(fXLSX) > 0
Set wpisywane = Workbooks.Open(fPath & fCSV)
wpisywane.Activate
Range("a1").Select
Selection.Copy
zbiorcze.Activate
Cells(NR + 1, 3).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlnone, skipblanks _
:=False, Transpose:=False
(...)
wpisywane.Close False
NR = NR + 1
fCSV = Dir
Loop
End Sub"
Kod otwiera pliki xlsx we wskazanym folderze i kopiuje dane ze wskazanych komórek, umieszczając je w kolejnych wierszach, po jednym wierszu na plik.
Jak zrobić, żeby dane były zapisywane w pliku, który nie musiałby znajdować się w tej samej lokalizacji ? Da się to jakoś łatwo zmodyfikować?
Z góry dziękuję za pomoc.
