获取指定工作簿最大列号

sj15627581616

Sub Macro1()
'
' Macro1 Macro
' 宏由 X 录制，时间: 2020/01/25
'

    Range("A1:A5").Select
    Selection.Copy
    Application.Left = -32000
    Application.Top = -31925
    Application.WindowState = xlMinimized
    Application.Left = 0
    Application.Top = 75
    Application.WindowState = xlMaximized
    Workbooks.Open Filename:="C:\Users\X\Desktop\匹配数据存放.xlsx", AddToMru:=True
    Range("C1").Select
    ActiveSheet.Paste
    Application.RecentFiles.Add Name:="C:\Users\X\Desktop\匹配数据存放.xlsx"
    ActiveWorkbook.Save
    ActiveWorkbook.Close
    Windows("新建 XLSX 工作表.xlsm").Activate
    Application.DisplayAlerts = False
    Application.DisplayAlerts = True
End Sub


以上是录制宏模拟获取的代码 Range("C1").Select部分要怎样修改才能变成该工作簿1行最大列

网海遨游

工作薄中工作表的最大列数：
N=columns.count
工作薄中工作表的第一行有数据的最大列号（数字）：
Myc=cells(1,columns.count).end(1).column'红色数字代表行。

WYS67

网海遨游 发表于 2020-1-25 13:18
工作薄中工作表的最大列数：
N=columns.count
工作薄中工作表的第一行有数据的最大列号（数字）：

祝老师新春快乐！

answer6141

cells.columns.count

sj15627581616

网海遨游 发表于 2020-1-25 13:18
工作薄中工作表的最大列数：
N=columns.count
工作薄中工作表的第一行有数据的最大列号（数字）：

这只能获得当前代码所有工作簿活动工作表的最大列号，但是无法获得匹配数据存放这个工作表的最大列号，也正是这个原因才上帖吧

sj15627581616

或者换一种说法，就是不打开工作簿但要获得该工作簿中工作表的最大列号

网海遨游

提供附件，并模拟(或叙述)要达到效果。

从你提供代码来看，复制选定单元格区域数据，打开另一个工作薄，粘贴数据保存工作薄，关闭打开的工作薄。
你这种cells.copy如果两个表行列数量不一样(2003版最大列256列，而2007及以上16384列)，粘贴可能会出问题。两个不同版本行列数都不同，
同复制工作表再粘贴也会报错。

sj15627581616

网海遨游 发表于 2020-1-25 17: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

sj15627581616

网海遨游 发表于 2020-1-25 21:59
你这个问题就比较简单。

Sub test()

谢谢老师，知识面不够，虽然知道有其他方式做到同样效果，但录制宏完成了大部分，就差那点，所以比较纠结吧，