Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] Giúp mình khai báo reference trong access . cụ thể là " Microsoft Excel Object librar
#1
Mình có làm một phần mềm bằng accecc . Phần mềm yêu cầu ghi nội dung của các text box vào 1 form excell định dạng sẵn. Mình đã ghi được nhưng vấn đề là mỗi lần mình copy phần mềm của mình sang máy tính khác nó đều yêu cầu add reference Microsoft Excel ..... Bạn nào có code nào để gọi reference Microsoft excel ko giúp mình với
Chữ ký của hoantvbk1987 Xin chào, mình là hoantvbk1987, Tham gia http://thuthuataccess.com/forum từ ngày 24-01 -14.
Reply
Những người đã cảm ơn
#2
Thử cái này:
'==========
Function FixUpRefs()
Dim loRef As Access.Reference
Dim intCount As Integer
Dim intX As Integer
Dim blnBroke As Boolean
Dim strPath As String

On Error Resume Next

'Count the number of references in the database
intCount = Access.References.Count

'Loop through each reference in the database
'and determine if the reference is broken.
'If it is broken, remove the Reference and add it back.
Debug.Print "----------------- References found -----------------------"
Debug.Print " reference count = "; intCount

For intX = intCount To 1 Step -1
Set loRef = Access.References(intX)
With loRef
Debug.Print " reference = "; .FullPath
blnBroke = .IsBroken
If blnBroke = True Or Err <> 0 Then
strPath = .FullPath
Debug.Print " ***** Err = "; Err; " and Broke = "; blnBroke
With Access.References
.Remove loRef
Debug.Print "path name = "; strPath
.AddFromFile strPath
End With
End If
End With
Next
'''Access.References.AddFromFile "C:\Program Files\Common Files\Microsoft Shared\DAO\dao360.dll"

Set loRef = Nothing

' Call a hidden SysCmd to automatically compile/save all modules.
Call SysCmd(504, 16483)
End Function


Function AddRefs()
Dim loRef As Access.Reference
Dim intCount As Integer
Dim intX As Integer
Dim blnBroke As Boolean
Dim strPath As String

On Error Resume Next

'Loop through each reference in the database
'Add all references
Debug.Print "----------------- Add References -----------------------"

With Access.References
.AddFromFile "C:\Program Files\Common Files\Microsoft Shared\DAO\dao360.dll"
.AddFromFile "C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll"
.AddFromFile "C:\Program Files\Microsoft Office\Office\msacc9.olb"
.AddFromFile "C:\Program Files\Common Files\System\ado\msado15.dll"
.AddFromFile "C:\Program Files\Common Files\System\ado\msado25.tlb"
.AddFromFile "C:\Program Files\Common Files\System\ado\msadox.dll"
.AddFromFile "C:\WINNT\System32\stdole2.tlb"
.AddFromFile "C:\WINNT\System32\scrrun.dll"
'===========
.AddFromFile "= C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE" ' Đặt Excel
.AddFromFile "= C:\Program Files\Common Files\System\ado\msador28.tlb"
.AddFromFile "= C:\Program Files\Common Files\System\ado\msado28.tlb"
.AddFromFile "= C:\Program Files\Common Files\Microsoft Shared\DAO\dao360.dll"
.AddFromFile "= C:\Program Files\Common Files\Microsoft Shared\OFFICE15\MSO.DLL"
.AddFromFile "= C:\Program Files\Microsoft Office\Office15\MSACC.OLB"
.AddFromFile "= C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7.1\VBE7.DLL"

End With

' Call a hidden SysCmd to automatically compile/save all modules.
Call SysCmd(504, 16483)
End Function
Chữ ký của duong100 Xin chào, mình là duong100, Tham gia http://thuthuataccess.com/forum từ ngày 24-03 -12.
Reply
Những người đã cảm ơn Noname


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hỏi] Dữ liệu trong mainForm và subForm pherotao 1 34 11 Giờ trước
Bài mới nhất: tranthanhan1962
  [Hỏi] Định dạng dd/mm/yyyy và 123.456.789,00 trong vba vuthaiha90 2 147 15-11-17, 12:17 AM
Bài mới nhất: ongke0711
  [Thủ Thuật] Sử dụng window account cho việc phân quyền trong access tvn_hut 5 294 01-11-17, 01:47 PM
Bài mới nhất: ongke0711
  [Hàm] Nhờ gở khó về hàm DLookup trong câu lệnh VBA phungminhluan 3 151 13-10-17, 07:24 PM
Bài mới nhất: phungminhluan
  [Thủ Thuật] Lọc điều kiện theo nhiều dòng trong 1 Listbox hoặc nhiều Listbox ongke0711 11 1,636 23-09-17, 04:54 PM
Bài mới nhất: ongke0711

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ