ถามไว้ที่ http://www.utteraccess.com/forums/showflat.php?Cat=&Board=ms_excel&Number=191047&Forum=All_Forums&Words=TimK&Match=Username&Searchpage=0&Limit=25&Old=allposts&Main=191021&Search=true#Post191047

เขาต้องการที่จะเข้าไปใส่ Header และ Footer ในการพิมพ์งานใน Excel

Sub AddHeaderFooter()
Dim x As Integer

For x = 1 To ActiveWorkbook.Sheets.Count
ActiveWorkbook.Sheets(x).Select
With ActiveSheet.PageSetup
.CenterHeader = "&A" ' Sheet Name.
.CenterFooter = "&F" ' Current File Name.
End With
Next x

End Sub

ช่วงนี้ผมเองก็ต้องทำงานกับไฟล์ Excel ที่โอนข้อมูลจาก Access มาอยู่เหมือนกัน และได้มีโอกาสใช้โค้ดข้างต้นด้วย

ลองคิดดูคงจะไม่สนุกแน่ถ้าต้องเข้าไปกำหนดเองที่ละอัน ซึ่งของผมเองมีตั้ง 1 Sheets

ส่วนวันก่อนผมได้พูดถึงการ Save รูปกราฟใน Excel ให้ไปเป็นไฟล์ Gif เพื่อนำไปใช้กับโปรแกรม Word ให้ทีหนึ่งแล้ว

ก็อยากจะขอให้ตัวอย่างโค้ดในที่นี้ไว้อีกครั้งแล้วกัน

Sub Create_GIF()
Dim mychart As Chart
Dim i As Integer, x As Integer
For x = 1 To ActiveWorkbook.Sheets.Count
For i = 1 To 4
Set mychart = Sheets(x).ChartObjects(i).Chart
mychart.Export Filename:="c:\Mychart" & i & x & ".gif", FilterName:="GIF"
Next i
Next x
End Sub

จากโค้ดข้างบน มันจะวิ่งไปที่ sheet แรกจนถึงอันสุดท้าย แล้ววิ่งไปที่ chart อันแรกใน Sheet นั้นๆ แล้ว แปลงให้เป็นไฟล์ Gif แล้วเก็บไว้ในห้อง c:\ ให้ ไล่ไปเรื่อยๆ จนครบหมด

การทำงานบางครั้งเราไม่ได้ทำแค่ใน Access ก็จบ แต่ต้องนำข้อมูลไปสร้างใน Excel หรือส่งให้ Word ต่ออีกที ซึ่งเหมาะสำหรับพิมพ์รายงานสรุป ได้ดีกว่า Access ในงานบางเรื่องครับ