Question

不好意思的标题。在脚本编写方面，我对Excel或VBA不太熟悉。但是，我将excel用于家庭业务。我正在尝试从其他工作簿中提取数据，并将其插入到其他工作簿中的单个工作表中。

我要从中获取数据的字段不是单元格。这是一个“编辑文本”框。

这是我到目前为止所得到的

Sub TransferCompanyNames()
for(int i = 0; i < 479; i++){
    variable = Workbooks.Open Range(//Column A with index i);
    //column a contains a link to the workbook C:/Users/.../Documents/file.xlsx
    //grab data from Edit Text Box and insert into current sheet at column A with index i
}
End Sub

我知道这甚至不是正确的语法。但是，我将尝试对其进行完善。

还有其他方法可以获取此信息吗？任何可能帮助我实现自动化的工具。

Answer 1

可能是这样的：

Sub TransferCompanyNames()
    Dim i As Integer
    Dim SourceBook As Workbook
    Dim TargetSheet As Worksheet
    Set TargetSheet = Workbooks("ChangeToYourWorkbookName").Worksheets("ChangeToYourSheetName")
    For i = 1 To 480
        Set SourceBook = Workbooks.Open(Range("A" & i).Value)
        TargetSheet.Range("B" & i).Value = ActiveSheet.Shapes(1).TextFrame.Characters(1, _
                                           ActiveSheet.Shapes(1).TextFrame.Characters.Count).Text
        SourceBook.Close False
    Next
End Sub

从不同的工作簿中获取数据并将其插入到一个工作簿中

1 个答案: