返回列表 上一主題 發帖

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

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

先謝謝各位了！
收藏 分享

esperanto

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

謝謝大大的回覆。

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

TOP

esperanto

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

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

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

TOP

        靜思自在 : 慈悲沒有敵人，智慧不起煩惱。
返回列表 上一主題