(若是和其他不同軟體互動之問題 請記得一併填寫)
軟體:Excel
版本:Office2010
Set uHead = uHead(2, 1)
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & uFile, Destination:=uHead)
.AdjustColumnWidth = False
.TextFileOtherDelimiter = ":" '冒號
.TextFileCommaDelimiter = True '逗號
.Refresh BackgroundQuery:=False
.Delete
End With
以上程式可以讀取txt檔裡的格式內容
但格式不對
https://drive.google.com/open?id=0B2p4am3C9DCoSGFaXzRzMElTc1E
以上為圖片內容 , 格式應該要儲存到每個方格中 , 但它只放在一個方格
以下為檔案 , 麻煩大大幫我看看 , 小弟感激不盡
https://drive.google.com/open?id=0B2p4am3C9DCoNmY3WHR4RHBXb2s