利用VBA編輯器,寫入TXT檔其中一行文字到EXCEL裡!!!

123451758

我要利用

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

裡的vb編輯器.讓excel

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

中的台數,依序各日期可以寫入

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

...

瀏覽完整內容，請先 註冊 或 登入會員

給一點提示

vb read text file

1. '(general declaration)
   
2. 
   
3. Dim nFileNum As Integer, sText As String, sNextLine As String, lLineCount As Long
   
4. 
   
5. '==================================
   
6. 
   
7. Private Sub Command1_Click()
   
8. 
   
9. ' Get a free file number
   
10. nFileNum = FreeFile
    
11. 
    
12. ' Open a text file for input. inputbox returns the path to read the file
    
13. Open "C:\Documents and Settings\Sudeep\My Documents\3.txt" For Input As nFileNum
    
14. lLineCount = 1
    
15. ' Read the contents of the file
    
16. Do While Not EOF(nFileNum)
    
17.    Line Input #nFileNum, sNextLine
    
18.    'do something with it
    
19.    'add line numbers to it, in this case!
    
20.    sNextLine = sNextLine & vbCrLf
    
21.    sText = sText & sNextLine
    
22. 
    
23. Loop
    
24. Text1.Text = sText
    
25. 
    
26. ' Close the file
    
27. Close nFileNum
    
28. 
    
29. End Sub

複製代碼

vb parsing string
w w w.rentron.com/parsingstrings.htm
w w w.rentron.com/adv_parsing.htm
cuinl.tripod.com/Tips/parse-string.htm

Populating a cell using VBA

1. Workbooks("Sheet1").Sheets(1).Cells(i,j).Value="value"

複製代碼

...

瀏覽完整內容，請先 註冊 或 登入會員

123451758

Lingb58 發表於 2012-8-30 09:20 AM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

給一點提示

vb read text file

不好意思!我是完全初學者..我照你的方法寫,可是為什麼寫到這句Text1.Text = sText
...就會跳出此處需要物件呢???...

瀏覽完整內容，請先 註冊 或 登入會員

darkjack

那當然阿，因為她寫的程式碼 主要是在 VB 下
而不是 VBA 下

123451758

darkjack 發表於 2012-8-30 09:30 PM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

那當然阿，因為她寫的程式碼 主要是在 VB 下
而不是 VBA 下

喔喔...不好意思!因為我完全不懂!女生學這個好吃力><...

瀏覽完整內容，請先 註冊 或 登入會員

Text1.text 代表有一個名稱為 Text1 的物件，有名為text的屬性
你應該是在
'do something with it
這個地方就要去解析一行文字，然後取出你要的部份填到excel鄉對應的欄位就好了，不需要管 Text1 ...


我試寫了一下整個代碼大概會像這樣

1. Sub 按鈕1_Click()
   
2.     ' Get a free file number
   
3.     nFileNum = FreeFile
   
4.    
   
5.     ' Open a text file for input. inputbox returns the path to read the file
   
6.     Open "D:\Temp\Book1.txt" For Input As nFileNum
   
7.     lLineCount = 1
   
8.     i = 1
   
9.     ' Read the contents of the file
   
10.     Do While Not EOF(nFileNum)
    
11.        Line Input #nFileNum, sLine
    
12.        'do something with it
    
13.        sDate = Left(sLine, 8)
    
14.        sCount = Right(sLine, 2)
    
15.        Workbooks("Book1.xlsm").Sheets("Sheet1").Cells(i, 1).Value = sDate
    
16.        Workbooks("Book1.xlsm").Sheets("Sheet1").Cells(i, 2).Value = sCount
    
17.        i = i + 1
    
18.     Loop
    
19.    
    
20.     ' Close the file
    
21.     Close nFileNum
    
22. End Sub

複製代碼

剩下的你自己改吧...
...

瀏覽完整內容，請先 註冊 或 登入會員

抱歉，請板主協助刪除此篇回復