ต่อไป »

[pichit2010]

รบกวนถามเกี่ยวกับ excel macro เกี่ยวกับการเปิดไฟล์หน่อยครับ

รบกวนถามเกี่ยวกับ excel macro เกี่ยวกับการเปิดไฟล์หน่อยครับ
คือว่า ผมอยากจะเปิดไฟล์โดยใช้ loop for
แต่มัน error ครับ

Run-time error '1004'
ไม่พบ 'c:data_iMacros\smyweb\i.csv' โปรดตรวจการสะกดชองชื่อแฟ้ม และตรวจสอบตำแหน่งที่ตั้งของแฟ้มให้ถูกต้อง

ไม่ทราบว่า ผมต้องแทนค่า i ยังไงครับ
สมมุติว่าผมมีไฟล์ชื่อ 1.csv, 2.csv, 3.csv ... 10.csv
ไม่ทราบว่า ต้องแก้ไขยังไงครับ
ขอบคุณครับผม

code:

Sub del_50()

 For i = 1 to 10
    ChDir "C:\data_iMacros\smyweb"
    Workbooks.Open Filename:="C:\data_iMacros\smyweb\i.csv"
     
    Rows("1:50").Select
    Selection.ClearContents
    Selection.Delete Shift:=xlUp
   
    Application.DisplayAlerts = False
   
    ActiveWorkbook.Save
    ActiveWindow.Close
    Application.DisplayAlerts = True
   
   Next i

End Sub

รบกวนด้วยครับ     ปวดหัวมาสามวันแล้ว   

[pichit2010]

ขออนุญาติดันนิดนึงครับผม..
 

[yosima]

โค๊ด:

Workbooks.Open Filename:="C:\data_iMacros\smyweb\"&i&".csv"

ลองดูไม่แน่ใจนะครับ ไม่เคยลอง ปกติ concatenate ของ VBA จะทำแบบนี้

[pichit2010]

โค๊ด:

Workbooks.Open Filename:="C:\data_iMacros\smyweb\"&i&".csv"

ลองดูไม่แน่ใจนะครับ ไม่เคยลอง ปกติ concatenate ของ VBA จะทำแบบนี้

พอใส่แล้ว มันขึ้น error อย่างนี้ ครับผม