Excel 将路径附加到用户表单选择
我有一本电子版的工作簿。在它中,一个带有2个组合框的用户表单。 cmb1列出了位于不同文件夹(E:\MLDOWNLOADS)中的工作簿的名称-目标。Excel 将路径附加到用户表单选择,excel,vba,Excel,Vba,我有一本电子版的工作簿。在它中,一个带有2个组合框的用户表单。 cmb1列出了位于不同文件夹(E:\MLDOWNLOADS)中的工作簿的名称-目标。 cmb2列出当前工作簿中的工作表-目标。 我想从目标复制一个范围并粘贴到目标。 如何分配包含附加到cmb1.value的目标完整路径的变量 当前代码: Dim cbook As Workbook Dim psheet As Worksheet Dim wsDest As Worksheet Dim lCopyLastRow As Long Dim
cmb2列出当前工作簿中的工作表-目标。 我想从目标复制一个范围并粘贴到目标。 如何分配包含附加到cmb1.value的目标完整路径的变量 当前代码:
Dim cbook As Workbook
Dim psheet As Worksheet
Dim wsDest As Worksheet
Dim lCopyLastRow As Long
Dim lDestLastRow As Long
Dim Dpath As String
Dpath = "E:\MLDOWNLOADS\"
cbook = (Dpath & Frmdownloads.cmb1.Value)
psheet = Frmdownloads.cmb2.Value
Set wsCopy = Workbooks(cbook).Worksheets("List transactions")
Set wsDest = ThisWorkbook.Worksheets(psheet)
lCopyLastRow = wsCopy.Cells(wsCopy.Rows.Count, "A").End(xlUp).Row
lDestLastRow = wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Offset(1).Row
wsCopy.Range("A2:D" & lCopyLastRow).Copy wsDest.Range("A" & lDestLastRow)
End Sub
您可以使用两列设置目标Cbx,其中一列隐藏并包含路径。然后,您可以简单地将一列的路径与另一列的名称组合起来。了解如何创建和读取多列组合框。此外,请考虑清楚和一致的变量命名。目标和目标显示在箭头的同一端。试试源代码,在决定了源代码后,不要称之为复制。另外:
cbook
和psheet
被声明为对象。为其赋值时,必须使用Set
语句。为此,我们将进行相应的修改并重试。。