Я беру данные с нескольких листов, массируя их, чтобы данные могли быть загружены на наш веб-сайт. Данные размещены на двух листах. Мой код VBA сохраняет только один из двух листов в моей недавно созданной книге. Не знаете почему?
Единственный код, который мне известен для сохранения вновь созданной электронной таблицы, - это единственное, что я попробовал.
'Создать выходной файл
Dim newWB As Workbook, currentWB As Workbook
Dim newA As Worksheet, newP As Worksheet, currentS As Worksheet
Dim strFullname As String
strFullname = "G:\CMG\DCM\Operations\Fusion (Website)\" & Format(Range("CurrentDate"), "yyyy") & "\" & " MonthlyImport" & " " & Format(Range("CurrentDate"), "mmddyy") & ".csv"
Set currentWB = ThisWorkbook
Set currentS = ShOutput '(this is the name of my worksheet)
ShOutput.Range("A:F").Select
Selection.Copy
Set newWB = Workbooks.Add
With newWB
Set newA = newWB.Sheets("Sheet1")
newA.Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ShOutput.Activate
ShOutput.Range("H:L").Select
Selection.Copy
newWB.Worksheets.Add
Set newP = newWB.Sheets("Sheet2")
newP.Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
'Save in CSV
Application.DisplayAlerts = False
newWB.SaveAs Filename:=strFullname, FileFormat:=xlCSV
newWB.Close
Application.DisplayAlerts = True
End With
Я ожидаю одну книгу с двумя листами данных