Điều khiển Excel từ Vb6

[friendship293a]

Em viết một đoạn code thực hiện lệnh gọi file Excel được chỉ định và chiuyển DisplayDrawingObjects của thisworkbook đã được bật xlDisplayShapes thành xlHide nhưng chưa được nhờ các anh chỉ giúp với. xin xem file đính kèm

 

[ndu96081631]

Em viết một đoạn code thực hiện lệnh gọi file Excel được chỉ định và chiuyển DisplayDrawingObjects của thisworkbook đã được bật xlDisplayShapes thành xlHide nhưng chưa được nhờ các anh chỉ giúp với. xin xem file đính kèm

Đầu tiên bạn vào menu Project\References và Add vào Microsoft Excel 11.0 Object Library
Tiếp theo dùng code này xem:

Private Sub Command1_Click()
  Dim Wb As Workbook
  With New Excel.Application
    Set Wb = .Workbooks.Open("C:\book1.xls")
  End With
  Wb.DisplayDrawingObjects = xlHide
  Wb.Close (True): Set Wb = Nothing
End Sub

Tôi không rành VB6 lắm ---> Đoán và làm đại (chạy test thử thấy OK)

 

[pro_titanic0508]

Không chạyd đâu bị lỗi bạn ah

 

[PhanTuHuong]

Đầu tiên bạn vào menu Project\References và Add vào Microsoft Excel 11.0 Object Library
Tiếp theo dùng code này xem:

Private Sub Command1_Click()
  Dim Wb As Workbook
  With New Excel.Application
    Set Wb = .Workbooks.Open("C:\book1.xls")
  End With
  Wb.DisplayDrawingObjects = xlHide
  Wb.Close (True): Set Wb = Nothing
End Sub

Tôi không rành VB6 lắm ---> Đoán và làm đại (chạy test thử thấy OK)

Khai báo kiểu như bác ndu không thuận đâu vì chỉ thực hiện được trong 2003, với 2007, 2010 thì tịt. Để linh hoạt cho các phiên bản, nên khai báo đối tượng là Object hết. Đầu tiên vẫn làm theo cách của bác ndu, sau khi code ngon lành rồi thì chuyển hết đối tượng sau Object, đồng thời chuyển thuộc tính sang số.

Đồng thời huỷ đường dẫn: menu Project\References và bỏ Microsoft Excel 11.0 Object Library