如何从 Excel VBA 中的 RowSource 属性的非活动工作表中正确引用表

Question

I am trying to fill a ListBox in a Userform through the RowSource property and a Table object containing the information in an inactive Sheet named Data , using Excel VBA. My code mostly works, but has a serious flaw: it only works when the Sheet containing the Table with the data is active (selected between all the sheets in the workbook).

The code I tried is the following:

ListBox1.RowSource = Worksheets("Data").Range("Table 1[[Column1]:[Column4]]").Address(0, 0)

The issue is that the range returned doesn't refer to any Sheet , it simply is something like B2:E5 which just adds blank rows to ListBox1 . The range returned by the code should be something like Data!B2:E5 . My problem is that I can't just hard code this. For the sample code I simplified the reference, but the Table chose to get the data from will vary (all these tables are on the same Sheet ).

Answer 1

The Address property has several other parameters. You need to include the External parameter

.Address(0, 0, ,1)

ie

ListBox1.RowSource = Worksheets("Data").Range("Table1[[Column1]:[Column4]]").Address(0, 0, ,1)

Explanation:

1. Worksheets("Data").Range("Table1[[Column1]:[Column4]]") correctly return a range reference to the Data sheet. The .Address(0, 0) returns just the Row/Column part of that address (eg as you say B2:E5 )
2. When you write B2:E5 to the RowSourse property, that tells the ListBox to get the data from that address on the ActiveSheet
3. Address(0, 0, ,1) returns a fully qualified reference, including the Workbook and Worksheet