สวัสดีทุกคน
ฉันกำลังพยายามส่งข้อมูลจากแผ่นงาน excel ไปยังเอกสาร word
ข้อมูลกำลังดำเนินไปอย่างสมบูรณ์แบบ ปัญหาเดียวคือเมื่อฉันส่งข้อมูลไปยังคำนั้น การเลี้ยงดูในเอกสารคำจะยุ่งเหยิง
โปรดช่วยด้วยปัญหาหลักของการจัดตำแหน่ง
ขอบคุณ
โชซิบ
นี่คือรหัสที่ฉันใช้
คำสั่งย่อยส่วนตัวButton2_Click()
Dim objWord เป็นวัตถุ
ตั้งค่า objWord = CreateObject("Word.Application")
Sheet1.Range("F1:Q72") คัดลอก
ด้วย objWord
.เอกสาร.เพิ่ม
.การเลือก.วาง
.Visible = จริง
จบด้วย
ตั้ง objWord = Nothing
ย่อยสิ้นสุด