我有1000個txt，每個有5列資料，我想把每個txt的第5列拿出來作為一列放到一個excel里，不想一個一個手動匯入再分列再洗掉我不要的列。請問如何通過宏實作？求excelVBA代碼。
uj5u.com熱心網友回復：
把你手動操作的程序錄下來然后適當調整就會變成宏代碼自動操作了.......uj5u.com熱心網友回復：
要不就把txt檔案讀入到陣列，再回圈取出每個元素中的第5個資料寫入到excel中......uj5u.com熱心網友回復：
1. 貼幾行你的 .txt 檔案的內容，讓大家知道你的文本檔案內容是什么樣的格式。這樣，別人才有可能知道你的“5列資料”是怎么定義的，“第5列內容”應該用什么方法分離出來。
如果有敏感內容或隱私內容，可以用別的文本內容替換（比如換成 XXXX、******等）。
2. 你的1000個 .txt檔案，是不是集中放在一個檔案夾中？
3. 匯入內容時，檔案順序有沒有要求？
如果有“順序”的要求，你得說清楚這批檔案的排序依據。
uj5u.com熱心網友回復：
僅供參考：ServerShare = "\\192.168.3.56\d$"
UserName = "somedomain\someuser"
Password = "somepassword"
Set NetworkObject = CreateObject("WScript.Network")
NetworkObject.MapNetworkDrive "", ServerShare, False, UserName, Password
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Directory = FSO.GetFolder(ServerShare)
For Each FileName In Directory.Files
WScript.Echo FileName.Name
Next
Set FileName = Nothing
Set Directory = Nothing
Set FSO = Nothing
NetworkObject.RemoveNetworkDrive ServerShare, True, False
Set NetworkObject = Nothing
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/98175.html
標籤：VBA
上一篇：請教高手