Excel VBA或函數從工作簿中提取工作簿名稱和數據

Question

有什么方法可以提取工作簿名稱，但是只能提取其中一部分。 任何版本的excel最好都可以在2003年使用。

例如

"Help_TicketID123456788.xls"  
"Help_TicketID563565464.xls" 

...

因此，我想提取ID numbers並將其放入另一個工作簿的主工作表中的列中。

另外，我想從每個工作簿的特定列（總是相同的列）中提取一些數據，並將其也放入主工作表中。

謝謝！！

Answer 1

在主電子表格中，您可以編寫一個VBA過程來循環遍歷目錄中的所有xls文件，從每個文件名中提取ID號，然后打開每個文件以提取其他數據。 這應該使您開始：

Sub RunCodeOnAllXLSFiles()
Dim lCount As Long
Dim wbResults As Workbook
Dim wbCodeBook As Workbook

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False

On Error Resume Next
Set wbCodeBook = ThisWorkbook
    With Application.FileSearch
        .NewSearch
        'Change path to suit
        .LookIn = "C:\MyDocuments\TestResults"
        .FileType = msoFileTypeExcelWorkbooks
        'Optional filter with wildcard
        .Filename = "Help_TicketID*.xls"
            If .Execute > 0 Then 'Workbooks in folder
                For lCount = 1 To .FoundFiles.Count 'Loop through all
                    'Extract ticket #
                    '.FoundFiles(lCount) is the filename

                    'Open Workbook x and Set a Workbook variable to it
                    Set wbResults = Workbooks.Open(Filename:=.FoundFiles(lCount), UpdateLinks:=0)

                    'Read the data from wbResults and write to your master spreadsheet

                    wbResults.Close SaveChanges:=False
                Next lCount
            End If
    End With
On Error GoTo 0
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.EnableEvents = True
End Sub

資料來源： http : //www.ozgrid.com/VBA/loop-through.htm