VBA 選擇檔案

option explicit

sub 開啟檔案()
dim filenameobj as variant
dim afile as variant        '陣列，提取檔名filename時使用
'開啟檔案對話方塊返回的檔名，是乙個全路徑檔名，其值也可能是false，因此型別為variant
dim filename as string
dim fullname as string
dim wenjian as object
dim i as integer
'呼叫windows開啟檔案對話方塊
if filenameobj <> false then                       '如果未按「取消」鍵
afile = split(filenameobj, "\")
filename = afile(ubound(afile))            '陣列的最後乙個元素為檔名
fullname = afile(0)
for i = 1 to ubound(afile)                 '迴圈合成全路徑
fullname = fullname & "\" & afile(i)
next
else
msgbox "請選擇檔案"
endend if
end sub

VBA 選擇檔案對話方塊

開啟選擇路徑對話方塊 strtitle 對話方塊標題名 strtypesdec 選擇檔案型別名 多檔名時用 連線 images all files strexten 選擇檔案型別 乙個檔名有多個讀取型別時用 連線,多個檔名用 連線 gif jpg jpeg boolallowmultiselect ...

VBA讀取檔案

首先我們需要認識幾個相關定義 filesystemobject 檔案系統定義 set fs createobject scripting.filesystemobject set a fs.createtextfile c testfile.txt true a.writeline this is ...

VBA研究 VBA提供的檔案操作

最近乙個學習vba的同事問我如何用vba修改檔名，我給他說了一下方法，順便也整理一下常用的幾種操作方法。這兒說的檔案操作是指作業系統級別的，不是開啟檔案，對檔案內容操作。我們當然可以建立檔案系統物件操作檔案，但是，最簡單的還是使用vba提供的標準的檔案操作功能。最常見的就是檔案或資料夾的增 刪 改。...