依Excel檔名自動儲存在相同名稱目錄 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 依Excel檔名自動儲存在相同名稱目錄

返回列表下一主題上一主題發帖

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

中學生 Rank: 2

帖子: 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名稱所要求文件夾,所以導致錯誤?

Sub save_in_particular_folder()
Dim myarray
Dim target_folder As String, target_file
Dim FSOobject As Object
myarray = Split(ThisWorkbook.Name, ".xls", -1)
myarray = Split(myarray(0), "-", -1)
target_folder = "D:\Tony\Excel VBA\" & myarray(0) & "\" & myarray(1)
target_file = target_folder & "\" & ThisWorkbook.Name
If Len(Dir(target_folder, vbDirectory)) = 0 Then
Set FSOobject = CreateObject("scripting.filesystemobject")
FSOobject.createfolder (target_folder)
ThisWorkbook.SaveAs target_file
Set FSOobject = Nothing
Else
ThisWorkbook.SaveAs target_file
End If
End Sub

複製代碼

這是不是例如像這個?

80 字節以內
不支持自定義 Discuz! 代碼

靜思自在 : 滴水成河。粒米成蘿，勿輕己靈，勿以善小而不為。

返回列表下一主題上一主題