返回列表 上一主題 發帖

[發問] 請問如何讀取簡體檔名？

esperanto

帖子
14 
主題
5 
精華
0 
積分
21 
點名
0  
作業系統
Windows XP 
軟體版本
SP3 
閱讀權限
10 
註冊時間
2011-3-9 
最後登錄
2021-10-26 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-6-14 10:52 | 只看該作者

[發問] 請問如何讀取簡體檔名？

本帖最後由 esperanto 於 2011-6-14 11:05 編輯

想請問前輩們：

我想用VBA將一個資料夾內的檔名列出，
但遇到簡體檔名時，會變成?或是空白，
請問該如何解決？？

我的程式碼如下：
With ActiveSheet
n = .[A65536].End(xlUp).Row + 1
Range(.Cells(4, 1), .Cells(n, 4)).ClearContents
path1 = CStr(.Range("B1")) & "\"
file1 = Dir(path1): r = 1
i = 4
Do While file1 <> ""
  .Cells(i, 1) = file1
  i = i + 1
  r = r + 1
  file1 = Dir '取得下一個檔名
Loop
End With
End Sub

先謝謝各位了！
收藏 分享

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
2#
發表於 2011-6-16 08:23 | 只看該作者
本帖最後由 mark15jill 於 2011-6-16 08:25 編輯

回復 1# esperanto

基本上~
繁體系統內 讀取 簡體會變成亂碼..\
如果是少量的話 那建議用手動改比較快...
因為用EXCEL VBA 去讀取檔案 會造成幾種情形產生(個人經驗)
1.非正統文字(特殊繁體字) 如 嵵 這個字，VBA會停止作業~~在未設定任何跳過錯誤的情況下
2.有空格 他也是不會讀取~~  如 王大   王大  (妻) 、 王小    、王小  (妻) 這四筆的話  兩筆OK 兩筆會有問題(不特定設定的情況下)

PS 如果有簡體字  你可以試著+一段判斷區域  看特殊的那幾個簡體字檔案的檔名 是否可以KEYIN 入VBA內

TOP

esperanto

帖子
14 
主題
5 
精華
0 
積分
21 
點名
0  
作業系統
Windows XP 
軟體版本
SP3 
閱讀權限
10 
註冊時間
2011-3-9 
最後登錄
2021-10-26 
3#
發表於 2011-6-16 13:48 | 只看該作者
To mark15jill :

謝謝大大的回覆。

所以讀簡體檔名這問題算是無解囉？

TOP

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
4#
發表於 2011-6-16 13:51 | 只看該作者
本帖最後由 mark15jill 於 2011-6-16 13:54 編輯

回復 3# esperanto

基本上 不單簡體字是無解~很多特殊符號 也是無解~
除非有額外+設定或者是判斷~~(不好意思 這個我不會~~)
像之前 我有在板上發問一些檔案搬移的問題，後來依據某大大的程式碼去執行搬移的程式，搬著搬著赫然發現
有時候 會給我罷工!!!(沒看錯 真的是罷工，檔案沒搬完就停掉，也沒錯誤訊息!!)
結果 查了程式碼及名稱，才發現只要是有空格、符號、特殊字，VBA內不承認的話，一概會有問題~~

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
239  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-4 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
5#
發表於 2011-6-16 14:16 | 只看該作者
本帖最後由 Hsieh 於 2011-6-16 19:47 編輯

回復 3# esperanto
這樣就能讀到簡體檔名
  1. Sub 簡體檔名()
  2. Dim fs
  3. Set fos = CreateObject("Scripting.FileSystemObject")
  4. Set fd = fos.getfolder(ThisWorkbook.Path) '檔案目錄
  5. Set fc = fd.Files
  6. For Each fs In fc
  7. r = r + 1
  8. Cells(r, 1) = fs.Name
  9. Next
  10. End Sub
複製代碼
學海無涯_不恥下問

TOP

esperanto

帖子
14 
主題
5 
精華
0 
積分
21 
點名
0  
作業系統
Windows XP 
軟體版本
SP3 
閱讀權限
10 
註冊時間
2011-3-9 
最後登錄
2021-10-26 
6#
發表於 2011-6-17 08:58 | 只看該作者
TO Hsieh

真是太感謝了！不但告知解決方法，還特地幫我修改程式。
那個繁簡互換的程式也很好用！

我想再請教一個問題：
當我將簡體檔名列在excel工作表中，我要如何從工作表中的檔名資料去找檔案？
例如我以Hsieh的程式讀取到簡體檔名：「另一种温暖.mp3」，顯示在cells(4,1),
然後我想再對這個檔案作處理（ex 更改檔名），但就算我從cells(4,1)抓資料，
只會得到「另一种?暖.mp3」這樣的字串，
導致我無法利用工作表的資料去找到硬碟中的這個檔案，
這該如何解決呢？？

TOP

        靜思自在 : 不要隨心所欲，要隨心教育自己。
返回列表 上一主題