使用VBA合併所有工作表

vba合併全部表

Sub ADO聯合查詢（）

Dim cnn 作為物件、SQL$、MyPath$、MyFile$、m&、n&

Set cnn = CreateObject(“ADODB.Connection”)

[a:b].清除內容

MyPath = ThisWorkbook.Path & ”\”

MyFile = Dir(MyPath & ”*.xls”)

當我的檔案「」

時執行

如果 MyFile ThisWorkbook.Name 那麼

n = n 1

如果n = 1則cnn.Open“Provider=Microsoft.Jet.OLEDB.4.0;擴充;資料來源=”&MyPath&MyFile

m = m 1

如果 m >49 則

Range(“a” & Rows.Count).End(xlUp).Offset(1).CopyFromRecordset cnn.Execute(SQL)

m = 1

SQL = ````

＃＃＃萬一＃＃＃

如果 Len(SQL) 那麼 SQL = SQL & ” union all ”

SQL = SQL & ”select f1,'” & Replace(MyFile, ”.xls”, ””) & ”' from [Excel 8.0;hdr=no;Database=” & MyPath & MyFile & ”].[ Sheet1$A2:A]＂

＃＃＃萬一＃＃＃

MyFile = Dir()

＃＃＃環形＃＃＃

If Len(SQL) then Range(“a” & Rows.Count).End(xlUp).Offset(1).CopyFromRecordset cnn.Execute(SQL)

cnn.關閉

設定 cnn = Nothing

結束子

用vba插入填滿單元格

私有子CommandButton1_Click()

'最後一行，上面插入一行，橫向單元格，填充資料

Dim n、s、col、r、tmp

'----設定----

n = 2 '橫向單元格n格

s = ”XXXXXX” '填充資料

col = ”A” ' 以 col 操作的最左列

'----執行----

使用 ActiveSheet

r = .Cells(65536, col).End(xlUp).Row

.Rows(r).Insert xlShiftDown '插入行

With .Cells(r, col).Resize(1, n)

.合併'合併儲存格

.Value = s '填入資料

結束於

結束於

結束子

以上是使用VBA合併所有工作表的詳細內容。更多資訊請關注PHP中文網其他相關文章！