Hình như VB6 không hỗ trợ Office 64bit mà a
Không phải như anh nghĩ. Là cái DLL của anh nó là 32 bit. Nó kéo quan hệ với các loại 32-bit. Khi DLL của anh chạy trong Office 64 bit thì cái nhóm có quan hệ với DLL 32 bit kia mặc nhiên không chạy được. Anh không quyết liệt chọn một môi trường mới để build 64 bit đi mà vẫn trong VB6 là không thể được đâu.
(AutoCAD bị, Office thì nuột luôn) nên tạm thời khắc phục bằng VB6, chạy exe (cũ dùng dll thì chỉ 32 bit thôi).
Sub TestVB6dll_Excel64bit()
Dim cls As New clsMain
'Hiển thị handle Window:
MsgBox cls.GetActiveHwnd
'Ghi giá trị vào ô A1
WriteValue Range("A1"), "Alo!"
End Sub1/ Link sau là cách thứ nhất chạy cho Officex64 và Officex32 ... đó là cách đơn giản nhất chạy chung cho Officex32 và x64
www.giaiphapexcel.com
1/ Link sau là cách thứ nhất chạy cho Officex64 và Officex32 ... đó là cách đơn giản nhất chạy chung cho Officex32 và x64
Microsoft Visual Basic 6.0 Viết Ứng Dụng Cho Office Excel_x32 Và Office Excel_x64
Mạnh lang thang trên Google tìm tài liệu viết cái Server xài ( Database.accdb ) trên VB6 vô tình thấy Internet nó keo VB6 có thể viết cho Sub + Function cho Officex32 và Officex64 chạy tốt lỡ quậy rồi thì chơi tiếp .... Úp lên đây nhờ các Bạn test dùm trên Officex32 và Officex64 xem nó có chạy...
2/ Cách thứ 2 là
- 1 File *.dll viết = VB6
- Viết 1 File Load ( Tạm keo là Files Load ) dùng để load hàm trong Files *.dll viết = VB6
- Từ Excel ( không phân biệt Officex32 Or x64 ) check File Load xong cứ thế sử dụng hàm của File *.dll viết = VB6
Cách mục số 2 này an toàn hơn cách Mục số 1 ... tuy nhiên phát sinh thêm File Load
Tự tay thử đi ... đó là cách Load DLL viết = VB6
Tôi lại ít khi quan tâm mấy cái đó ... với tôi nó quá xa vời và tôi ko có hiểu sâu xa bản chất của nó làm gì
Public Sub GetData(StrPath, DataRange, Des())
Dim ObjConn As Object, RS As Object, StrRequest As String
Set RS = CreateObject("ADODB.Recordset")
Set ObjConn = GetExcelConnection(StrPath)
StrRequest = "SELECT * From " & DataRange
RS.Open StrRequest, ObjConn, 3, 1
Des = TransArr(RS.Getrows)
RS.Close
Set ObjConn = Nothing
Set RS = Nothing
End Sub
Public Function GetExcelConnection(ByVal Path As String)
Dim StrConn As String, ObjConn As Object, Pro As String, Ext As String
Set ObjConn = CreateObject("ADODB.Connection")
Pro = "Provider=Microsoft.ACE.OLEDB.12.0;"
Ext = ";Extended Properties=""Excel 8.0;"
StrConn = Pro & "Data Source=" & Path & Ext & "HDR=No" & ";IMEX=1"";"
ObjConn.Open StrConn
Set GetExcelConnection = ObjConn
End Function
Public Function TransArr(sArr As Variant) As Variant
Dim TmpArr As Variant, x As Long, y As Long
ReDim TmpArr(UBound(sArr, 2), UBound(sArr, 1))
For x = 0 To UBound(sArr, 2)
For y = 0 To UBound(sArr, 1)
TmpArr(x, y) = sArr(y, x)
Next y
Next x
TransArr = TmpArr
End FunctionRem ========== Luu Y su dung
Rem 1/ Tools\References\Browse..\VBLibraryLoad.exe ==> Su dung Cho RPC As New VBLibraryLoad.cCOM
Rem ==========
Public RPC As New VBLibraryLoad.cCOM
Public LoadCOM As Object, test As Long
Rem ========== Su dung Cho Function
Public Function GetExcelConnection(ByVal Path As String)
Set LoadCOM = RPC.NewInstance("dllvb6.clsMain")
Set GetExcelConnection = LoadCOM. GetExcelConnection(Path)
If Not LoadCOM Is Nothing Then Set LoadCOM = Nothing
End Function
Rem ========== Su dung Cho Sub
Public Sub GetData(StrPath, DataRange, Des())
Set LoadCOM = RPC.NewInstance("dllvb6.clsMain")
Call LoadCOM.GetData(StrPath, DataRange, Des())
If Not LoadCOM Is Nothing Then Set LoadCOM = Nothing
End SubTôi nghĩ thế này .. còn sâu xa bản chất của nó sao thì tôi ko có biết
function IsAppInRun(RunName: string): WordBool; stdcall;
Var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
//Reg := TRegistry.Create(KEY_WRITE OR KEY_WOW64_64KEY);
with Reg do
begin
// RootKey := HKEY_LOCAL_MACHINE;
RootKey := HKEY_CURRENT_USER;
OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', FALSE);
//OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
Result := ValueExists(RunName);
CloseKey;
Free;
end;
end;Public Function IsAppInRun(ByRef AppName As String) As Boolean
Rem Public Function IsAppInRun(ByVal AppName As String) As Boolean
Rem Neu key Ton tai = True ; Ko ton tai = Flase
IsAppInRun = stdCallW(mDLL, "IsAppInRun", vbLong, AppName) ''Su dung Tot
End FunctionNói thật lòng là nhưng cái bạn nêu tôi xem ko hiểu gì cả vì nó vượt quá xa sự hiểu biết của tôi
Private Sub Class_Initialize()
mDLL = App.Path & "\VBLibrary.dll"
End Sub
Anh có thể gợi ý một vài từ khoá để tìm hiểu làm được giao thức tcp/ip này ko ạ
biết ngay mà ...
bạn hỏi kiểu đó kiêu tôi đoán à ... cái đó do bạn khai báo sử dụng
Option Explicit
Rem ========== Luu Y su dung
Rem 1/ Tools\References\Browse..\VBLibraryLoad.exe ==> Su dung Cho RPC As New VBLibraryLoad.cCOM
Rem ==========
Public RPC As New VBLibraryLoad.cCOM
Public LoadCOM As Object, test As Long
Rem ========== Su dung Cho Function
Public Function GetExcelConnection(ByVal Path As String)
Set LoadCOM = RPC.NewInstance("dllvb6.clsMain")
Set GetExcelConnection = LoadCOM.ConnectDataName(Path)
If Not LoadCOM Is Nothing Then Set LoadCOM = Nothing
End Function
Rem ========== Su dung Cho Sub
Public Sub GetData(StrPath, DataRange, Des())
Set LoadCOM = RPC.NewInstance("dllvb6.clsMain")
Call LoadCOM.GetData(StrPath, DataRange, Des())
If Not LoadCOM Is Nothing Then Set LoadCOM = Nothing
End Subcode này cái Hàm tôi khai báo do copy sai ... còn cái Sub là đúng ... vấn đề bạn hỏi cái gì trong code đó
Public Function GetExcelConnection(ByVal Path As String)
Set LoadCOM = RPC.NewInstance("dllvb6.clsMain")
Set GetExcelConnection = LoadCOM.ConnectDataName(Path)
If Not LoadCOM Is Nothing Then Set LoadCOM = Nothing
End FunctionPublic Function GetExcelConnection(ByVal Path As String)
Set LoadCOM = RPC.NewInstance("dllvb6.clsMain")
Set GetExcelConnection = LoadCOM.GetExcelConnection (Path)
If Not LoadCOM Is Nothing Then Set LoadCOM = Nothing
End FunctionĐã thử mọi cách kết quả như ban đầu !
1/ ban đầu keo lỗi ADODB ... cài xong hết lỗi đó
64 bit không thôi nếu dc bạn cho mình file đơn giản chỉ msgbox chạy dc trên 64 bit là ok rồi.
xem code mẫu trong File
bạn qua link sau tải mấy Files bài đó về xem có chạy ko là biết ngay thôi ... nhớ là đăng ký nó
www.giaiphapexcel.com
www.giaiphapexcel.com
