|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
本帖最后由 网海遨游 于 2020-1-25 22:07 编辑
你这个问题就比较简单。
Sub test()
Application.DisplayAlerts = False: Application.ScreenUpdating = False'禁弹出警告、刷新等
arr =Sheets("sheet1").[a1].CurrentRegion'给数组赋值
mp = ThisWorkbook.Path & "\"'路径
mf = Dir(mp & "*匹配*.xls*")'显示工作薄全称
Set dk = Workbooks.Open(mp & mf)'打开指定名称工作薄
Set sht = dk.Sheets("CC") '定义工作表对象
Myc = sht.Cells(1, Columns.Count).End(1).Column + 1 '第一行中有数据最大列号的下一列
sht.Cells(1, Myc).Resize(UBound(arr), UBound(arr, 2)) = arr'写入数据到指定单元格区域
dk.Close True'关闭时,先保存打开的工作薄
MsgBox "OK,完成!!!", 48, "温馨提示……"'弹出提示
Application.DisplayAlerts = True: Application.ScreenUpdating = True'允许警告、刷新等
End Sub |
评分
-
1
查看全部评分
-
|