注意：把「臨床診斷」改為自己的sheet
sub cfgzb(
) dim myrange as variant
dim myarray
dim titlerange as range
dim title as string
dim columnnum as integer
="請選擇標題行："
, type:=8
) myarray = worksheetfunction.transpose(myrange)
="請選擇拆分的表頭，必須是第一行，且為乙個單元格，如：「科室」"
, type:=8
) title = titlerange.value
columnnum = titlerange.column
false
false
dim i&
, myr&
, arr, num&
dim d, k
for i = sheets.count to 1 step -
1 if sheets(i)
.name <>
"臨床診斷" then
sheets(i)
.delete
end if
next i
set d = createobject(
"scripting.dictionary"
) myr = worksheets(
"臨床診斷"
).usedrange.rows.count
arr = worksheets(
"臨床診斷"
).range(cells(
2, columnnum)
, cells(myr, columnnum)
) for i =
1 to ubound(arr)
d(arr(i,1)
)="" next
k = d.keys
for i =
0 to ubound(k)
set conn = createobject(
"adodb.connection"
) conn.open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source="
& thisworkbook.fullname
sql =
"select * from [臨床診斷$] where "
就這樣完成了
拆分Excel工作表
最近碰到這麼乙個需求，客戶要求把乙個excel工作簿裡的所有的工作表都給單獨的拆分出來，不僅要資料連格式也要保持，捯飭了一上午看到了點結果，呵呵，偶是菜鳥大家表笑話，如果有更好的方法可以分享一下 public void splitexcelbooks string strsourceexcel da...
多個excel工作簿 工作表合併
功能描述 合併當前資料夾下面所有excel，包括每乙個工作簿與每乙個工作簿下面的每乙個工作表 步驟 1 所有表的每個sheet需要表頭一致 2 所有表需要放在乙個資料夾下面 3 該程式會合併當前資料夾下面所有字尾名為指定字尾名的資料 4 在該資料夾下面新建乙個同樣字尾名的excel 5 開啟新建的 ...
excel檔案中的多個工作表按名稱排序
使用excel時，有時會碰到乙個 裡面很多的sheet，比如sheet11，sheet23。當這些sheet是無序的時候，查詢乙個sheet很疼，所有想按sheet來排序下，但是excel本身又不提供按sheet排序的方法，所有就上網找了下解決方法 發現得通過excel的vb程式設計模式，隨便右擊乙...