帖子: 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: 3 Rank: 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

小學生 Rank: 1

帖子: 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: 3 Rank: 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

超級版主 Rank: 8 Rank: 8

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

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
這樣就能讀到簡體檔名

Sub 簡體檔名()
Dim fs
Set fos = CreateObject("Scripting.FileSystemObject")
Set fd = fos.getfolder(ThisWorkbook.Path) '檔案目錄
Set fc = fd.Files
For Each fs In fc
r = r + 1
Cells(r, 1) = fs.Name
Next
End Sub

複製代碼

學海無涯_不恥下問

TOP

esperanto

小學生 Rank: 1

帖子: 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