用於合並工作表的VBA代碼

下面是壹個簡單的VBA代碼示例，用於將同壹文件下所有CSV格式的工作表內容匯總到壹個工作表中:

vba

子合並CSV工作表()

將ws標註為工作表

Dim合並為工作表

將路徑作為字符串變暗

將文件名標註為字符串

Dim lastrow As Long

創建壹個新工作表作為匯總表

設置wsMerged =工作表。增加

wsMerged。Name = "合並"

指定CSV文件路徑。

path = " C:\ path \ to \ your \ CSV \ files \ "

遍歷同壹文件夾中的所有CSV文件。

文件名=目錄(路徑& amp"*.csv”)

Do While filename & lt& gt""

打開CSV文件，將其內容復制到當前工作簿的摘要工作表中。

使用工作簿。打開(路徑& amp文件名)

lastrow =。張(1)。單元格(行。計數，1)。結束(xlUp)。排

。張(1)。在:=wsMerged之後復制

以…結尾

關閉CSV文件。

工作簿(文件名)。關閉保存更改:=False

獲取下壹個CSV文件名

文件名=目錄()

環

刪除摘要工作表中的第壹行(標題行)。

wsMerged。行數(1)。刪除

末端接頭

請註意，您需要將代碼中的路徑C:\path\to\your\csv\files\替換為您實際存儲csv文件的路徑。此外，此代碼假定CSV文件中的第壹行是標題行。如果您的CSV文件沒有標題行，您需要刪除wsMerged。行數(1)。刪除代碼中的行。