小白求助

ffspeed

想简单做一个自动调取有固定格式命名文件中的信息，然后粘贴到固定表格区域的代码，自己摸索能做到选中想要的资料并复制，但是因为基础不够，怎么修改都无法粘贴。


详情见附件，点击导入后，自动打开同一文件路径下的pickup文件，复制A2:V2内容，粘贴表sheet1中。
小白一枚，大神轻点喷，谢谢。

ykcbf1100

导入数据每次都是在总表的第2行开始写入。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.3.1
   
2.     Set sh = ThisWorkbook.Sheets("Sheet1")
   
3.     p = ThisWorkbook.Path
   
4.     f = p & "\exp_PickUp_WorkPlan_17046.xlsx"
   
5.     Set wb = Workbooks.Open(f, 0)
   
6.     With wb.Sheets(1)
   
7.         r = .Cells(Rows.Count, 1).End(3).Row
   
8.         arr = .Range("a2:v" & r)
   
9.         wb.Close 0
   
10.     End With
    
11.     With sh
    
12.         .UsedRange.Offset(1) = ""
    
13.         .[a2].Resize(UBound(arr), UBound(arr, 2)) = arr
    
14.     End With
    
15.     MsgBox "OK！"
    
16. End Sub
    

复制代码

ffspeed

ykcbf1100 发表于 2024-3-1 14:59
导入数据每次都是在总表的第2行开始写入。

感谢帮助，关于pickup文件，是系统导出文件，他的文件名不固定，但是规律固定的，只是最后的数字会变化，我用通配*， "\exp_PickUp_WorkPlan_*"，会显示错误，该如何处理

ykcbf1100

ffspeed 发表于 2024-3-1 16:36
感谢帮助，关于pickup文件，是系统导出文件，他的文件名不固定，但是规律固定的，只是最后的数字会变化， ...

文件改为动态选择好了。

ykcbf1100

改为

1. Sub ykcbf()   '//2024.3.1
   
2.     Set sh = ThisWorkbook.Sheets("Sheet1")
   
3.     p = ThisWorkbook.Path & ""
   
4.    ' f = p & "\exp_PickUp_WorkPlan_17046.xlsx"
   
5.     With Application.FileDialog(msoFileDialogFilePicker)
   
6.         .InitialFileName = p
   
7.         .Title = "请选择对应Excel文件"
   
8.         .AllowMultiSelect = False
   
9.         .Filters.Clear
   
10.         .Filters.Add "Excel文件", "*.xls*"
    
11.         If .Show Then f = .SelectedItems(1) Else Exit Sub
    
12.     End With
    
13.     Set wb = Workbooks.Open(f, 0)
    
14.     With wb.Sheets(1)
    
15.         r = .Cells(Rows.Count, 1).End(3).Row
    
16.         arr = .Range("a2:v" & r)
    
17.         wb.Close 0
    
18.     End With
    
19.     With sh
    
20.         .UsedRange.Offset(1) = ""
    
21.         .[a2].Resize(UBound(arr), UBound(arr, 2)) = arr
    
22.     End With
    
23.     MsgBox "OK！"
    
24. End Sub
    

复制代码

动态选择文件