在单独的工作簿中有宏来定位工作簿，复制和粘贴作为值从工作表到新的工作簿，并保存在原始工作簿的位置

Question

作为预先警告，我是使用VBA的新手。

我已经拼凑了以下代码来执行以下操作：1。找到工作表“intrastat”2。复制此工作表3的使用范围。作为值粘贴到新工作簿4中。重新格式化B5栏中的日期。将工作簿保存在原始工作簿的位置。

然而，只有当我将宏保存在原始工作簿中时，这才起作用。我需要的是能够有宏保存在一个不同的工作簿和运行宏，我需要能够选择“原始”工作簿从一个文件位置在我的硬盘。

有什么想法吗？

当前代码：

Sub TB_Intrastat_Data_Cleanse()
Dim wb As Workbook
Set wb = Workbooks.Add
Set TWKB = ThisWorkbook
Set sel = Selection

Dim folderPath As String
folderPath = Application.ThisWorkbook.Path

TWKB.Sheets("Intrastat").UsedRange.Copy
wb.Sheets(1).[a1].PasteSpecial xlPasteValues
Columns("B:B").Select
Selection.NumberFormat = "dd/mm/yyyy;@"

nme = "TB Intrastat Data " & Range("A3") & " MTD"
ActiveWorkbook.SaveAs Filename:=folderPath & nme

End Sub

Answer 1

您可以使用application.getOpenFileName()提示用户浏览文件资源管理器并打开文件。然后将该文件用作twkb:

Sub TB_Intrastat_Data_Cleanse()
Dim wb As Workbook, TWKB As Workbook
Dim sel As Range
Dim nme As String

Set wb = Workbooks.Add
Set TWKB = Application.GetOpenFilename(Title:="Please choose a file to open", FileFilter:="Excel Files *.xls* (*.xls*),")
Set sel = Selection

Dim folderPath As String
folderPath = Application.ThisWorkbook.Path

TWKB.Sheets("Intrastat").UsedRange.Copy
wb.Sheets(1).[a1].PasteSpecial xlPasteValues
Columns("B:B").NumberFormat = "dd/mm/yyyy;@"

nme = "TB Intrastat Data " & Range("A3") & " MTD"
ActiveWorkbook.SaveAs Filename:=folderPath & nme

End Sub

注意：我会将末尾的activeworkbook.saveas更改为工作簿变量（或显式命名工作簿），因为您要使用两个单独的变量，以确保保存的是正确的变量。