※ 引述《evantw (安安小成)》之銘言：
: 執行環境：Excel 2003
: 請問如果我有一個檔名 text 123.txt
: 在run到 SQL 語法中 select *from text 123.txt 時就會發生錯
: 但是如果將檔名中的空格去掉成 text123.txt 在Run就不會錯誤
: 但是我的檔名一定要有空格的情況下
: select *from text 123.txt <--- 要怎樣改呢???
檔名改成text_123.txt
或是先用程式開本來的txt，另存一個檔名....
: 另外~~
: 請問如何利用 Excel VBA 讀取 xxx.csv 檔案指定範圍內容
: 而 .csv 檔名可能會有所變動,所以要用個變數來代替
: 假設:我想利用 Excel VBA 讀取 C:\test 內的 test123.csv 內
: 範圍 B22:D30 <用Excel開啟時的位置> 內資料
: 複製到我正開啟的 Book1.xls 的 sheet1 內
: 並從 A1 欄位依序貼上
: 請問這樣需要這樣功能的 VBA 要怎樣寫???
: 謝謝各位~~
以下為不入流式的寫法~
忘了之前幫誰寫， 他說我寫法很怪...
沒辦法，當時學的時候沒書(office才剛2000
只能查網路自學....
光是你文章要的依序貼上， 大概至少有四五種以上的方式
每個人學的又都不同XD
底下是最懶的一種 COPY Paste
------------------
' 先記得現在在哪個excel檔
Set myWorkBook1 = ActiveWorkbook
'開啟csv...當然也適用開EXCEL
dlgAnswer = Application.Dialogs(xlDialogOpen).Show
If dlgAnswer = 0 Then End
'開啟的資料檔
Set myWorkBook2 = ActiveWorkbook
'資料存放的sheet
Set mySheet2 = Worksheets(1)
'不清楚你要怎麼抓資料，自己選一種
'從第一格抓到該資料的最後一筆
Set myRng = Range(mySheet2.Cells(1, 1), mySheet2.UsedRange)
'從a1抓到e4
'Set myrng = Range(mySheet2.Cells(1, 1), mySheet2.Cells(4, 5))
'有需要算格子的話會用到
'A = mySheet2.UsedRange.Rows.Count
'B = mySheet2.UsedRange.Columns.Count
myRng.Copy
'拷貝完資料 回家貼了
myWorkBook1.Activate
'從A20處 貼上所需的資料
Range("A20").Select
' 直接使用copy、貼上的方式
ActiveSheet.Paste
' 關掉csv檔
myWorkBook2.Close
' 釋放是好習慣
Set myRng = Nothing
Set mySheet2 = Nothing
Set myWorkBook2 = Nothing
Set mySheet1 = Nothing
Set myWorkBook1 = Nothing
--------------------end--------------------
(太久沒玩ANSI的顏色Orz，變那些顏色花的時間，比打這程式久- -
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.118.197.88