使用 VBA 打开 Excel 文件和复制工作表

Question

我需要将几个 excel 工作表（“Y”、“X”）从一个文件复制到另一个 excel 文件中的同一个工作表（称之为 Z - 我正在使用 VBA 的同一个文件）。 我的限制是第一个 excel 文件（带有 X，Y）的名称和路径正在改变，因此我试图使用“as String”和 Application.GetOpenFilename() 命令编写更通用的东西，但我'我收到一个错误。

试图分成2个不同的子

Sub BrowseForFile()
    Dim sFileName As String
    sFileName = Application.GetOpenFilename(, , "open the file: " )

    If sFileName = "false" Then Exit Sub
    MsgBox sFileName
    Workbooks.Open (sFileName)
    Workbooks(sFileName).Sheets("X").Activate
    Stop

1. 运行时错误 9
2. 文件未找到（我认为是 1004）

Answer 1

如果用户按下 Cancel 按钮，则 GetOpenFilename 函数返回布尔值 False 而不是字符串 "false"，因此您需要测试 If sFileName = False Then 并将其声明为 @987654326 @。

如果您打开工作簿，请始终将其引用到一个变量，以便您可以使用它轻松访问工作簿

Dim OpenedWb As Workbook
Set OpenedWb = Workbooks.Open(sFileName)

然后您可以使用变量Wb 来引用您打开的工作簿

OpenedWb.Worksheets("X").Activate

请注意，使用 .Select 和 .Activate 是一种不好的做法，应该避免使用 (How to avoid using Select in Excel VBA)。而是使用另一个参考来引用您的工作簿。

Dim ws As Worksheet
Set ws = OpenedWb.Worksheets("X")

例如访问ws.Range("A1").Value 之类的范围。

---

Sub BrowseForFile()
    Dim sFileName As Variant 'needs to be variant because cancel returns a boolean False
    sFileName = Application.GetOpenFilename(, , "open the file: " )

    If sFileName = False Then Exit Sub

    MsgBox sFileName

    Dim OpenedWb As Workbook
    Set OpenedWb = Workbooks.Open(sFileName)

    Dim ws As Worksheet
    Set ws = OpenedWb.Worksheets("X")

    MsgBox ws.Range("A1").Value 'output the value of `A1` in worksheet `X` of workbook `sFileName`
End Sub