Excel的VBA保持列表框从工作簿SOURSE关闭

执着后我有，我从外部工作簿填充用户窗体列表框。如果我保持源电子表格打开列表框可以正确显示。当我关闭外部工作簿时，列表框似乎不再正确显示，并且如果滚动列表框，文本将被一堆非打印字符替换。Excel的VBA保持列表框从工作簿SOURSE关闭

我启动用户的形式和当用户选择一个复选框用户窗体被消耗以显示附加字段。

Private Sub chkRepaceFromList_Click() 
    Dim sFileLocation As String 
    'When checkbox is checked, add replace from list option 
    If chkRepaceFromList = True Then 
     Me.Width = 400 
     sFileLocation = "C:\My File.xlsx" 
     'Populate listbox with items in replace from list spreadsheet 
     Call UpdateReplaceList 
    Else 
     Me.Width = 160 
    End If 
End Sub

UpdateReplaceList填充列表框与项目 “C：\我的File.xlsx”

Sub UpdateReplaceList() 
    Dim sFileLocation As String 
    Dim wbList As Workbook 
    sFileLocation = "C:\My File.xlsx" 
    Set wbList = Workbooks.Open(sFileLocation) 
    wbList.Worksheets("Sheet1").Range("A10").Select 
    Range("A10", Selection.End(xlDown).Offset(0, 1)).Select ' Select all data 
    With lstReplaceListListBox 
     .ColumnCount = 2 
     .ColumnWidths = "100;100" 
     '.RowSource = wbList.Range("A1:C20").Address 
     .RowSource = Selection.Address 
     '.RowSource = vList 
    End With 
    wbList.Close 
End Sub

我宁愿不保持 “C：\我的File.xlsx” 打开比需要的不再如果我不关闭它，chkRepaceFromList_Click（）事件就会被触发，它会尝试打开已经打开的文件。

我现在用的子UpdateReplaceList，因为我需要使用相同的代码当按下某些其他按钮。

任何建议，将不胜感激。

来源

2015-02-12 Beans

回合的指出，如果你声明一个未分配的数组。

Dim vList() As Variant

当数据被分配

vList = Selection 'copy data from workbook to memory as an array

然后，你可以指定数组列表框，它变为分配。

With lstReplaceListListBox 
     .ColumnCount = 2 
     .ColumnWidths = "100;100" 
     .list = vList 'Copy array to listbox 
    End With

而且，当源工作簿关闭时，这会在列表框中保持不变。

来源

2015-02-20 04:34:07 Beans

Excel的VBA保持列表框从工作簿SOURSE关闭

回答

相关问题