[問題] 如何用VBA操作text to column最後一步

看板Office作者 (NealCaffery)時間5年前 (2019/03/13 17:56), 5年前編輯推噓0(005)
留言5則, 2人參與, 5年前最新討論串1/1
(若是和其他不同軟體互動之問題 請記得一併填寫) 軟體: excel 版本: 2016 最近因為工作開始學習VBA,有一個非常困擾我的問題,想問問板上有沒有能解答。 之前我都是手動將txt檔的資料手動轉到我excel的表格,但資料量越來越多的狀況下我了 寫一個能自動轉檔的程式,然而程式碼完成後,我發現一個問題。 Text file裡的資料大概是這種形式的 08274627, 0321, 0321, 0032, 0000 我先將整個txt的每一行寫入A1, A2, A3..... 然後再用巨集錄製的text to column(delimiter)將其分欄,但我發現手動時我可以在tex t to column的最後一個步驟將每一列的data format直接選成text,但錄製巨集時卻少了 這個步驟。 如此一來,我data輸入時都是以general的方式來分行,導致我有0開頭的資料都變指數表 現或消失。我有試過在text to column前後用numberformatlocal來將儲存格轉成text, 但都沒有用。 沒有作用的原因,我認為是因為資料已經先被轉成general(0已經消失),所以再用number formatlocal也沒用,而text to column前用numberformatlocal沒用是因為text to colu mn操作完後資料又會被轉成general。 我的問題是,有人知道怎麼用code來操作text to column,且避免我的資料在分行時直接 以general存入,而是以text存入 真的非常願意看完的人,小弟誠心謝謝! -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 39.10.196.156 ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1552470971.A.800.html ※ 編輯: NealCaffery (39.10.196.156), 03/13/2019 17:57:14 ※ 編輯: NealCaffery (39.10.196.156), 03/13/2019 17:58:21

03/13 18:43, 5年前 , 1F
這方面在range.texttocolumns的fieldinfo內調整datatype
03/13 18:43, 1F

03/13 18:45, 5年前 , 2F
如果問的是指剖析在指定datatype上為不定數量都要為文字的
03/13 18:45, 2F

03/13 18:47, 5年前 , 3F
話,可寫個迴圈,變數()=array(迴圈變數,2)的方式
03/13 18:47, 3F

03/13 18:47, 5年前 , 4F
再於fieldinfo:=變數
03/13 18:47, 4F

03/14 07:24, 5年前 , 5F
S大 謝謝你的幫忙,我會來試試!
03/14 07:24, 5F
文章代碼(AID): #1SYDExW0 (Office)