Excel 将路径附加到用户表单选择

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

我有一本电子版的工作簿。在它中,一个带有2个组合框的用户表单。 cmb1列出了位于不同文件夹(E:\MLDOWNLOADS)中的工作簿的名称-目标。
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
语句。为此,我们将进行相应的修改并重试。。