Không thể khởi tạo ứng dụng excel trong VB 6.0 (1 người xem)

[khongnhienttt]

- xin chào các bạn mình đang làm 1 ứng dụng trên vb 6.0 gọi excel.aplication, mình dùng excel 2016, đã tham chiếu thư viện MS office 16 object library, và mình có code như sau

Private Sub Command1_Click()
[COLOR=#ff0000][SIZE=4]Dim ExcelApp As Excel.Application[/SIZE][/COLOR]
Dim NewWB As Workbook, Ogiatri As Range
On Error Resume Next
Set ExcelApp = GetObject(, "Excel.Application")
If Err Then
Err.Clear
Set ExcelApp = CreateObject("Excel.Application")
End If
Set NewWB = ExcelApp.Workbooks.Add
End Sub

tuy nhiên nó báo lỗi ngay dòng màu đỏ, nó báo kiểu dữ liệu chưa được định nghĩa, mình dùng chức năng auto list member thì biết nó không có class excel trong đó, và bấm F2 tìm cũng ko thấy.
vậy xin hỏi các bạn để khởi tạo ứng dụng excel theo kiểu early ( không dùng createobject("excel.application")) vì mình muốn có auto list member thì làm thế nào, cám ơn các bạn

 

[duongcga]

bạn đã đã tham chiếu đến thư viện excel chưa?

 

[ndu96081631]

- xin chào các bạn mình đang làm 1 ứng dụng trên vb 6.0 gọi excel.aplication, mình dùng excel 2016, đã tham chiếu thư viện MS office 16 object library, và mình có code như sau

Private Sub Command1_Click()
[COLOR=#ff0000][SIZE=4]Dim ExcelApp As Excel.Application[/SIZE][/COLOR]
Dim NewWB As Workbook, Ogiatri As Range
On Error Resume Next
Set ExcelApp = GetObject(, "Excel.Application")
If Err Then
Err.Clear
Set ExcelApp = CreateObject("Excel.Application")
End If
Set NewWB = ExcelApp.Workbooks.Add
End Sub

tuy nhiên nó báo lỗi ngay dòng màu đỏ, nó báo kiểu dữ liệu chưa được định nghĩa, mình dùng chức năng auto list member thì biết nó không có class excel trong đó, và bấm F2 tìm cũng ko thấy.
vậy xin hỏi các bạn để khởi tạo ứng dụng excel theo kiểu early ( không dùng createobject("excel.application")) vì mình muốn có auto list member thì làm thế nào, cám ơn các bạn

Sửa lại thành vầy xem:

Private Sub Command1_Click()
  Dim ExcelApp As Object
  Dim NewWB As Object, Ogiatri As Object
  On Error Resume Next
  Set ExcelApp = GetObject(, "Excel.Application")
  If Err Then
    Err.Clear
    Set ExcelApp = CreateObject("Excel.Application")
  End If
  ExcelApp.Visible = True
  Set NewWB = ExcelApp.Workbooks.Add
End Sub

Không chắc lắm vì máy không cài VB6 nên dùng tạm VBScript (viết đại trên Notepad) để test

 

[Nguyễn Duy Tuân]

- xin chào các bạn mình đang làm 1 ứng dụng trên vb 6.0 gọi excel.aplication, mình dùng excel 2016, đã tham chiếu thư viện MS office 16 object library, và mình có code như sau

Private Sub Command1_Click()
[COLOR=#ff0000][SIZE=4]Dim ExcelApp As Excel.Application[/SIZE][/COLOR]
Dim NewWB As Workbook, Ogiatri As Range
On Error Resume Next
Set ExcelApp = GetObject(, "Excel.Application")
If Err Then
Err.Clear
Set ExcelApp = CreateObject("Excel.Application")
End If
Set NewWB = ExcelApp.Workbooks.Add
End Sub

tuy nhiên nó báo lỗi ngay dòng màu đỏ, nó báo kiểu dữ liệu chưa được định nghĩa, mình dùng chức năng auto list member thì biết nó không có class excel trong đó, và bấm F2 tìm cũng ko thấy.
vậy xin hỏi các bạn để khởi tạo ứng dụng excel theo kiểu early ( không dùng createobject("excel.application")) vì mình muốn có auto list member thì làm thế nào, cám ơn các bạn

Để lập tringh VB6 cho Excel ở dạng early. Trong VB6, vào menu Project_>References... chọn thới EXCEL.EXE.