本篇经验将和大家分享[在VBA中,如何打开目录下的工作表?]

工具/原料

  • 电脑壹台
  • OFFICE办公软件

方法/步骤

  1. 1

    在工作表中,点击菜单栏【开发工具】,在其工具栏里,点击【visual basic】,进入VBA界面!

  2. 2

    在VBA界面,点击菜单栏【插入】,在其下拉菜单中,点击【模块】!

  3. 3

    会弹出【代码编辑】窗口!

  4. 4

    在【代码编辑】窗口,输入如下代码。

    Sub 打开指定目录下的文件()

    Dim a$

    a = Dir("f:\*.xlsx")

    Workbooks.Open ("f:\" & a)

    Do

    a = Dir

      If a <> "" Then

        Workbooks.Open ("f:\" & a)

      Else

        Exit Do

      End If

    Loop

    End Sub

  5. 5

    在VBA界面,点击工具栏内的[运行]按钮!

  6. 6

    会打开F盘目录下的所有EXCEL工作簿!

    END
经验内容仅供参考,如果您需解决具体问题(尤其法律、医学等领域),建议您详细咨询相关领域专业人士。