Hi all,

I have previously posted a post about passing through a workbook name, and so link a VB6 DLL with a .xls workbook...

I'm stuck on the following: I want to make sure my DLL knows which workbook to work with, so I created this code in my DLL (I used project>references in both files):

Public Sub create(path_wkb)
Dim xlApp As Excel.Application
Dim xlWkbk As Workbook
Dim xlSheet As Worksheet
'
Set xlApp = New Excel.Application
Set xlWkbk = xlApp.Workbooks.Open(path_wkb)
'
set xlSheet = xlWkbk.Sheets("Sheet1")
xlsheet.range("A1").value = "test"
End Sub

However, I do not want to actually open the file, I just want to link xlWkbk to my workbook, but I did not find such a statement.

Any ideas would be much appreciated (Google wasn't able to help me today)

Max

Hi Max,

Not sure if this is in the right direction, but you can identify the links in a workbook by using the array of returned links within a workbook. You will then be able to identify the location of the said file.

    Dim myarray(1) As Variant
    myarray(0) = ActiveWorkbook.LinkSources(xlExcelLinks)
    MsgBox (myarray(0)(1))

Matt

Hi Matt,

I figured it out after some hours. It's actually dead simple

sub test(wrb)

dim xlWorkbook as object

''''code etc
Set xlWorkbook = GetObject(wrb) 'where wrb is path & filename
''''more code
end sub

link is set, so everything else is simple.