求教，将txt文件中指定内容写入excel中

mdsqeh

将文件中文件系统使用率，数据库会话数，表空间使用率读出，然后写入excel文件中。
/dev/ora_explv     50.00     27.60   45%       28     1% /ora_exp

INST_ID   COUNT(*) SUM(DECODE(STATUS,'ACTIVE',1,0))                                                                                                                                                  
---------- ---------- --------------------------------                                                                                                                                                  
         1        243                               30                                                                                                                                                  
         2        117                               30   

*********check tablespace used ratio*************


TABLESPACE_NAME           AVAIL       USED       FREE Used %                                                                                                                                            
-------------------- ---------- ---------- ---------- -------                                                                                                                                          
LOSS_HSHUI                15356          0      15356    5.00                                                                                                                                          
MWS_SYS                    2040          0       2040    0.00                                                                                                                                          
LOSS_BDING                15356          0      15356    0.00                                                                                                                                          
LOSS_SJZ                  15356          0      15356    0.00                                                                                                                                          
LOSS_CZHOU                15356          0      15356    0.00                                                                                                                                          
MWS_RTM                    1010          0       1010    0.01         

mdsqeh

自己顶，请高人帮忙吧。

cmo140497

這是小弟在台灣問過的問題,您參考看看!
'openTXT file
Sub gettxt()
    Worksheets.Add
    ActiveWindow.Zoom = 85
    Columns.ColumnWidth = 2.2
    j = 1
    i = 1
    On Error Resume Next
      fileno = FreeFile
      myFName = Application.GetOpenFilename("文字檔案.txt(*.txt),*.txt", Title:="請選擇ASE Mapping *.txt文字檔")
    If myFName = "False" Then Exit Sub
       '---------------------------------------
       Open myFName For Input As #fileno
       test = "WAFER:"  '修正您要找的名稱
       Do While Not EOF(1)
          Input #fileno, mytxt
               If mytxt Like test & "*" Then
                  
                  MsgBox LastRow.Value
                  Cells(i, j).Value = mytxt
                  'i = i + 1
               End If
       Loop
       Close #fileno
       '----------------------------------------
       K = 1
       L = 1
       Open myFName For Input As #fileno
       test2 = "RowData:"  '修正您要找的名稱
       Do While Not EOF(1)
          Input #fileno, mytxt
               If mytxt Like test2 & "*" Then
                  Cells(K + 1, L).Value = mytxt
                  K = K + 1
               End If
       Loop
       Close #fileno

mdsqeh

谢谢。有点外行，我还要仔细研究一下。

mdsqeh

有高人能给个写好的吗，本人太菜了，搞不懂。