Reading/writing 数据 from/to 用户表单中的另一个 excel 文件 (vba)

Question

我有很多单独的 excel 文件，其中有微处理器，它们正在做一些计算。现在我想为每个 excel 文件创建一个具有不同选项卡的用户表单。因此，通过这个用户表单，我想为每个 excel 文件提供输入，然后从中读取结果。我只知道如何在我制作用户表单的 excel 文件中读取/写入。例如，我通过以下代码激活 sheet 并将我的数据写入特定单元格：

Sheet1.Activate

单元格(4, 2).Value = TextBoxG.Value

现在我的问题是如何激活另一个 excel 文件中的 sheet 并在上面写入？我试过这个但不起作用：

工作簿("N:\Navid\Excel.xlsm").激活工作簿("N:\Navid\Excel.xlsm").Sheets("Sheet1").Activate

Answer 1

试试下面的子。如果您的文件路径和 sheets.

更改文件路径和 sheet 名称

Private Sub CmdWriteToCloseBook_Click()
Dim wb As Workbook
Dim sh As Worksheet

Application.ScreenUpdating = False
    Set wb = Workbooks.Open("D:\TEMP\excel.xlsx")
    Set sh = wb.Sheets("Sheet1")
    
        sh.Cells(4, 2) = Me.TextBoxG
        
    Set sh = Nothing
    wb.Close Savechanges:=True
    Set wb = Nothing
Application.ScreenUpdating = True

End Sub

Reading/writing 数据 from/to 用户表单中的另一个 excel 文件 (vba)

Reading/writing data from/to another excel file in userform (vba)

excel

vba

userform