ตัวอย่างโค้ด การโปรยข้อมูลลง excel ใน cell ที่ระบุ


Dim Ex
Dim Ec

Set Ex = CreateObject("Excel.Application")
Set Ec = Ex.Workbooks.Open("c:\test.xls", , False, , , , , , , True).Sheets(sampleA)

Dim intloop_x, intloop_y   ' ตัวแปรนับจำนวนรอบสำหรับการวนลูป

for intloop_x = 5 to 10 ' จะวนลูปตั้งแต่แถวที่ 5 ถึงแถวที่ 10 ใน excel
    for intloop_y = 6 to 8 ' จะวนลูปภายในแถวนั้นๆ ตั้งแต่คอลัมถ์ที่ 6 ถึง คอลัมน์ที่ 8
    ec.cells(intloop_x, intloop_y)=.......ค่าที่ต้องการใส่ใน cell นั้นๆ......
    next intloop_y
next intloop_x

ec.close
set ec=nothing
set ex=nothing

โปรยยังไงค่ะ

พอดีทำเเล้วไม่เกิดอะไรขึ้น

ขอบคุณค่ะ

นั่นเป็นตัวอย่างโค้ดนะครับ เพื่อให้เห็นแนวทาง หรือ Flow ของงานเท่านั้น
เอาไปใช้ไม่ได้นะครับ
ต้องไปแทรกไปเสริมคำสั่งเข้าไปอีกเยอะ ครับ
ที่ว่าเอาไปทำแล้วไม่เกิดอะไรขึ้น เอาไปทำอย่างไรบ้างครับ