Board logo

標題: [分享] 怎麼open csv檔案 [打印本頁]

作者: john2006168    時間: 2010-6-5 00:49     標題: 怎麼open csv檔案

本帖最後由 john2006168 於 2010-6-8 00:01 編輯

Sub share()
  
    Dim myWb As Workbook
    Dim myFileName As String
    myFileName = "john.csv"                           
    Set myWb = Workbooks.Open(Filename:=ThisWorkbook.Path & "\" & myFileName)
    Set myWb = Nothing      

     End Sub
作者: oobird    時間: 2010-6-5 23:40

Set myWb = Workbooks.Open(Filename:=ThisWorkbook.Path & "\" & myFileName)
作者: Hsieh    時間: 2010-6-6 00:17

Set myWb = Workbooks.Open(Filename:=ThisWorkbook.Path & "\" & myFileName)
oobird 發表於 2010-6-5 23:40



    還是oobird版大細心,多虧您指正




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)