Question

嗨我在主表上有以下代码，当我按下一个按钮时它会通过我想要的文件夹并打开并关闭它应从中提取数据的工作表。

问题是如何从打开的工作表（suuplier timesheets）中提取数据并将其放入主工作表中的下一个空行和特定列。

以下是我从主表单上的按钮打开和关闭文件的代码。我需要一个空间代码### CODE GOES HERES

Public Sub test()
'DECLARE AND SET VARIABLES
Dim wbk As Workbook
Dim Filename As String
Dim Path As String
Dim Wb1 As Workbook, wb2 As Workbook
Path = "\\ttsnas02\user_mdocs$\tdf8273\Documents\Rob\External supplier timesheet\CSV Supplier Main\Inbox folder\"  'CHANGE PATH
Filename = Dir(Path & "*.xl??")
'--------------------------------------------
'OPEN EXCEL FILES
 Do While Len(Filename) > 0  'IF NEXT FILE EXISTS THEN
    Set wbk = Workbooks.Open(Path & Filename)
    '
    ' ###CODE GOES HERE
    '


   wbk.Close True
   Filename = Dir

Loop
End Sub

在上面的宏打开的工作表中，只有在单元格L12有值时才会复制数据。然后是具有数据的特定单元格。以下是我粗暴的尝试。我还需要这个去下一行，L13中有一个值复制数据。（想想循环直到L23）：

isMyCellEmpty = IsEmpty(Range("L12"))
        If isMyCellEmpty = False Then
L3T_Supplier_number = Range("J8")
L3T_Purchase_Order_number = Range("J9")
GL_code = Range("L12")
Supplier_Hours1 = Range("I12")

这是主表中的粘贴。我粗暴的尝试。在此之前，您需要转到A列中的下一个自由行。然后是下面的方向。

.Offset(RowCount, 0) = L3T_Supplier_number
.Offset(RowCount, 1) = L3T_Purchase_Order_number
.Offset(RowCount, 4) = GL_code
.Offset(RowCount, 4) = Supplier_Hours1

请您为我编写代码，可以将正在打开和超过此页面的数据中的数据导入到保存宏的主表单中。

如果有任何问题，请告诉我。我试图这样做一段时间没有进展。需要有人来救援。

VBA将多个工作簿中的特定数据复制到此主工作表

0 个答案: