返回列表 上一主題 發帖

依Excel檔名自動儲存在相同名稱目錄

FAlonso

帖子
135 
主題
19 
精華
0 
積分
165 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
香港 
註冊時間
2010-12-9 
最後登錄
2012-8-27 
1# 跳轉到 »
發表於 2010-12-15 21:20 | 顯示全部帖子
本帖最後由 FAlonso 於 2010-12-15 22:31 編輯
回復  Hsieh

    檔案名稱 A-B-C.EXCEL
    已在c:\建立目錄為[A]
    [A]目錄建立子目錄[D]
    將 ...
yueh0720 發表於 2010-12-15 15:55

你的問題是,windows系統中沒有excel file名稱所要求文件夾,所以導致錯誤?
  1. Sub save_in_particular_folder()
  2. Dim myarray
  3. Dim target_folder As String, target_file
  4. Dim FSOobject As Object
  5. myarray = Split(ThisWorkbook.Name, ".xls", -1)
  6. myarray = Split(myarray(0), "-", -1)
  7. target_folder = "D:\Tony\Excel VBA\" & myarray(0) & "\" & myarray(1)
  8. target_file = target_folder & "\" & ThisWorkbook.Name
  9. If Len(Dir(target_folder, vbDirectory)) = 0 Then
  10.     Set FSOobject = CreateObject("scripting.filesystemobject")
  11.     FSOobject.createfolder (target_folder)
  12.     ThisWorkbook.SaveAs target_file
  13.    Set FSOobject = Nothing
  14. Else
  15.    ThisWorkbook.SaveAs target_file
  16. End If
  17. End Sub
複製代碼
這是不是例如像這個?
80 字節以內
不支持自定義 Discuz! 代碼

TOP

        靜思自在 : 人要自愛，才能愛普天下的人。
返回列表 上一主題