Re: [VBA ]這種字串切割的邏輯要怎麼寫

看板Office作者windknife18 (windknife18)時間12年前 (2013/07/24 15:48)推噓0(0推 0噓 0→)

留言0則, 0人參與討論串2/3 (看更多)

簡易版請參考 Option Explicit Option Base 1 Sub test() Dim Rng As Range Dim str() As String [H:I].ClearContents For Each Rng In Range([A1], Cells(Rows.Count, 1).End(3)) str = Split(WorksheetFunction.Trim(Rng(, 1)), " ") Rng(, 8) = "'" & str(5) & "-" & str(6) Rng(, 9) = str(8) Next End Sub ※ 引述《zchien (小建)》之銘言： : ※ [本文轉錄自 Visual_Basic 看板 #1HxfGum_ ] : 作者: zchien (小建) 看板: Visual_Basic : 標題: [VBA ]這種自串切割的邏輯要怎麼寫 : 時間: Tue Jul 23 22:33:26 2013 : 我是用EXCEL 2007去寫程式.. : 下面是我從FTP下載的資料... : 因為我想知道FTP檔案時間...所以我是呼叫cmd連到ftp去執行dir : 匯出成文件檔...Result.txt : 下面是我Result.txt內容 : -rw------- 1 Administrator None 185 Jun 23 21:46 .bash_history : -rwxr-xr-x 1 Administrator None 1494 Jun 23 21:28 .bash_profile : -rwxr-xr-x 1 Administrator None 6054 Jun 23 21:28 .bashrc : -rwxr-xr-x 1 Administrator None 1919 Jun 23 21:28 .inputrc : -rwxr-xr-x 1 Administrator None 1236 Jun 23 21:28 .profile : 我原本想要用Split依照"空白"去切..在讀出我要的時間和相對應的檔案名稱... : 但是我發現Result.txt 裡面的空白不太一定 : 而且有可能檔名不同下載之後...空格也改變了...如下 : -rw------- 1 Administrator None 185 Jun 23 21:46 .bash_history1 : -rwxr-xr-x 1 Administrator None 1494 Jun 23 21:28 .bash_profile1 : -rwxr-xr-x 1 Administrator None 6054 Jun 23 21:28 .bashrc1 : -rwxr-xr-x 1 Administrator None 1919 Jun 23 21:28 .inputrc1 : -rwxr-xr-x 1 Administrator None 1236 Jun 23 21:28 .profile1 : 目前想到..是匯入到EXCEL作資料頗析...就可以依照讀儲存格方式讀出 : 請問有沒有不需要匯入資料..我卻可以讀出日期和檔名的方式呢?? -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 140.131.84.79