使用VBA編寫代碼，批量導(dǎo)入其他文件的數(shù)據(jù)到Excel中。下面是一個示例VBA代碼：
Sub ImportDataFromFiles()
Dim FolderPath As String
Dim FileName As String
Dim TargetRange As Range
Dim NextRow As Long
Dim wbSource As Workbook
Dim wsSource As Worksheet
'設(shè)置要導(dǎo)入的文件夾路徑
FolderPath = 'C:\Users\UserName\Desktop\Data\'
'設(shè)置目標(biāo)表格的起始行
Set TargetRange = ThisWorkbook.Worksheets('Sheet1').Range('A2')
NextRow = TargetRange.Row
'循環(huán)處理文件夾中的每個文件
FileName = Dir(FolderPath & '*.xlsx')
Do While FileName <> ''
'打開文件
Set wbSource = Workbooks.Open(FolderPath & FileName)
Set wsSource = wbSource.Worksheets(1)
'將數(shù)據(jù)復(fù)制到目標(biāo)表格中
wsSource.UsedRange.Copy TargetRange
TargetRange.Offset(wsSource.UsedRange.Rows.Count).Activate
'關(guān)閉文件
wbSource.Close False
'更新目標(biāo)表格的起始行
NextRow = TargetRange.End(xlDown).Row + 1
Set TargetRange = TargetRange.Worksheet.Range('A' & NextRow)
'查找下一個文件
FileName = Dir()
Loop
End Sub
在此示例中，您需要設(shè)置要導(dǎo)入的文件夾路徑和目標(biāo)表格的起始行。該代碼將循環(huán)處理文件夾中的每個文件，并將每個文件的數(shù)據(jù)復(fù)制到目標(biāo)表格中。每個文件的數(shù)據(jù)將被復(fù)制到目標(biāo)表格的下一個空行中。
要運行此代碼，請打開Excel文件，并打開“開發(fā)人員”選項卡。在“開發(fā)人員”選項卡中，單擊“Visual Basic”按鈕打開VBA編輯器。在VBA編輯器中，選擇“插入”菜單中的“模塊”，然后將代碼粘貼到新模塊中。然后按下F5鍵或選擇“運行”菜單中的“運行子程序”來運行該代碼。
**************************************
“萬水千山總是情，點個關(guān)注行不行”
猛點下方“在看”
