73
ห้อง MS Access / : สอบถามโค้ด Export excel ให้เป็น Full screen ครับ
« เมื่อ: 10 ส.ค. 64 , 15:16:25 »
ลองเพิ่มตรงสีแดงเข้าไปว่าได้ไหม
Set xlapp = CreateObject("excel.application")
With xlApp
.Visible = True
.DisplayFullScreen = True
.Workbooks.Add
.Sheets("Sheet1").Select
.ActiveSheet.Range("A2").CopyFromRecordset rsClone
Set xlapp = CreateObject("excel.application")
With xlApp
.Visible = True
.DisplayFullScreen = True
.Workbooks.Add
.Sheets("Sheet1").Select
.ActiveSheet.Range("A2").CopyFromRecordset rsClone