Excel library reference

[Corticus]

Hi all,

I need to do this:
Dim ExcelSheet As Object
Set ExcelSheet = CreateObject("Excel.Sheet")

With ExcelSheet.Sheets(1).Columns("A:A")
.ColumnWidth = 15
' .HorizontalAlignment = xlRight
End With


I commented out the xlright line, becaue Access can't find it.

How do I add the excel library to access?

Its like this, but for Access I think...

Sub MakeLibrary_Word()

On Error Resume Next

ThisWorkbook.VBProject.References.AddFromGuid _
"{00020905-0000-0000-C000-000000000046}", 8, 0

End Sub


Thank all,

 

[dk]

Hello mate,

I ran this code to get a GUID for Excel (I had Excel referenced at the time)

Sub GetGIUD()
For Each i In ActiveWorkbook.VBProject.References
    Debug.Print i.Description & vbTab & i.GUID & "Major=" & i.major & ", Minor=" & i.minor
Next
End Sub

From the code above, I got this to work in Access:-

Sub Test()
'Add reference to Excel library
Application.References.AddFromGuid "{00020813-0000-0000-C000-000000000046}", 1, 3
End Sub

 

[Corticus]

Yeah!

Thanks dk, that's exactly what I wanted. I tried and tried to figure it out but it's one of those things that's not all that intuitive.

Take care,