節省新創建的VBA工作簿

Question

我正在開始一個新項目，剛開始= [時遇到了麻煩。 因此，通常我需要從很大的excel工作表中提取特定數據，並為該數據創建一個新的excel工作表。 目前，我目前正在嘗試創建一個新工作簿並將其保存到文件路徑。 我在SaveAs執行行中收到錯誤。 知道為什么會這樣嗎？ 錯誤是：

“對象“ _Workbook”的方法“另存為”失敗。

Dim Path As String
Dim dat As String
Dim Client As String

Path = "C:\Back\Test\"
ThisWorkbook.Sheets("Control Panel").Activate
dat = Range("F42")
Client = Range("F43")

Workbooks.Add
ActiveWorkbook.SaveAs Filename:=Path & Date & "-" & Client & ".xls", FileFormat:=xlNormal
newWBName = ActiveWorkbook.Name

Answer 1

我將建議您訪問我的需求。

這是應該執行您所需的子。 因此，首先我建議您將所有變量變暗，並且不要使用Activate。 而是使用工作表變量，並通過單元格而不是范圍訪問單個值。

但是您的主要問題可能是您嘗試使用保留字Date 。 讓我知道您是否不清楚。

Sub save()

Dim filePath As String
Dim dateFromSheet As String
Dim clientName As String
Dim controlPanelSheet As Worksheet
Dim newWorkbookName As String

Set controlPanelSheet = Sheets("Control Panel")

filePath = "c:\Users\sukl\Documents\"

With controlPanelSheet
    dateFromSheet = .Cells(42, "F").Value
    clientName = .Cells(43, "F").Value

End With

ThisWorkbook.SaveAs Filename:=filePath & dateFromSheet & "-" & clientName & ".xls", FileFormat:=xlNormal
newWorkbookName = ThisWorkbook.Name
End Sub