sub createfilefromexcle()
dim fs as object
'set fs = createobject("scripting.filesystemobject")
for i = 2 to [a65536].end(xlup).row
set fs = createobject("scripting.filesystemobject")
if not fs.folderexists(thisworkbook.path & "\" & cells(i, 1)) then fs.createfolder (thisworkbook.path & "\" & cells(i, 1)) 『把第一列作為為目錄，目錄不存在則建立
if not fs.folderexists(thisworkbook.path & "\" & cells(i, 1) & "\"& split(cells(i, 2), "-")(1) ) then fs.createfolder(thisworkbook.path & "\" & cells(i, 1) & "\"& split(cells(i, 1), "-")(1) ) 』建立子目錄 split(cells(i, 2), "-")(1) 表示對第二列單元格去其中特定的字段，使用-分割，（1）表示取第二個字段，0表示第乙個
set a = fs.createtextfile(thisworkbook.path & "\" & cells(i, 1) & "\" & cells(i, 2) & ".txt", true) 『用第二列的內容當檔名
a.writeline (cells(i, 4)) '將第4列的內容寫入檔案
a.close
next
msgbox "ok"
end sub
excel提取括號內的內容
使用mid函式作為主要函式，使用find函式作為定位函式 mid函式可以擷取文字的內容，其函式構造如下 其顯示結果為所擷取的字元段。例如要提取a1格中前十個字元的內容放入b1格 1.選擇b1格，雙擊或f2進入函式編輯欄 2.輸入函式 mid a1,1,10 3.回車執行函式 4.b1格中顯示 abc...
將excel表的資料匯入
import react from react import xlsx from xlsx class list extends react.component file.target 通過filereader物件讀取檔案 const filereader new filereader filere...
將資料匯出到excel
using system using system.data.oledb using system.io using system.windows.forms namespace postgraduateclient public sqltoexcel string tablename public...