Question

对大多数人来说，这可能过于简单了。我刚开始使用VBA来创建和更新excel工作簿。我在互联网上找到了一些代码来打开和更新现有的工作簿和工作表。就像我说的，我是全新的。这段代码甚至有意义吗？我只需要知道如何打开现有的工作簿，我发现的所有示例都不适用于我们的环境。谢谢我能得到任何帮助

Dim wbSource, xlApp, srcWorksheet 

 'initialize
 Set xlApp = CreateObject("Excel.Application")

 'open source and target files
 Set wbSource = lApp.Workbooks.Open("X:\GCIXCycleCompare_test_auto.xlsx")
 set srcWorksheet = wbSource.Worksheets("NewCycle")
 srcWorksheet.sheets("NewCycle").Activate

 srcWorksheet.Rows("1:1").Delete

Answer 1

如果您使用的是Excel VBA，这不是您想要的。此代码是为外部应用程序（例如用VB6编写）编写的，用于远程打开Excel，然后对Excel的副本执行操作。如果您已经在Excel / VBA中，那么显然不需要这样做。

在VBA中，等效代码将是这样的：

Public Sub MyCode()
    Dim wb as Workbook
    Dim ws as Worksheet 

    Set wb = Application.Workbooks.Open("X:\GCIXCycleCompare_test_auto.xlsx")
    Set ws = wb.Worksheets("NewCycle")

    ws.Rows(1).Delete
End Sub

如果您运行此代码（通过从VBA内部单击F5 ...或通过在Excel中运行宏），它应该打开X：驱动器上的测试文件，然后删除它的第一行。

使用2个工作表打开并更新现有工作簿

1 个答案: