帮忙设计一个VBA打印整个文件夹工作簿代码，要求执行前跳出对话框，选择是打印一张还是打印两张 ，然

代码如下：

Sub Print_All_Excel()
On Error Resume Next
Dim Time_ As Single
Time_ = Application.InputBox("请输入打印份数", Type:=1)
Dim my_Doc As String
Dim my_File As String
 
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
.AllowMultiSelect = False
my_Doc = .SelectedItems(1)
End With
 
my_File = Dir(my_Doc & "\" & "*.xls*")
Do While Len(my_File) <> 0
Workbooks.Open (my_Doc & "\" & my_File)
    ActiveWindow.SelectedSheets.PrintOut Copies:=Time_, Collate:=True, _
        IgnorePrintAreas:=False
ActiveWorkbook.Close
my_File = Dir
Loop
 
End Sub追问

在帮忙修改一个代码
Selection.AutoFill Destination:=Range("K1:K42")
其中的42是不确定的 取值K列最后一个有内容的行号

追答

Dim my_row As Single
my_row = Worksheets(1).Cells(1000, 11).End(xlUp).Row
Selection.AutoFill Destination:=Range("K1:K" & my_row)

追问

Dim lastrow As Integer
lastrow = Range("K65536").End(xlUp).Row
Selection.AutoFill Destination:=Range("K1:K" & lastrow)
请问和我这个代码有什么区别啊 不太懂

追答

无区别。你对VBA毫无基础，可从基础学起。在此之前则尽量少的使用。
再者，向别人提问时可使用稍微客气的语气，最起码错别字应该尽量避免。

追问

谢谢你了 帮我解决了一些问题 提问语气有点冒犯 实在不好意思了
我对VBA一窍不通 只会录制宏 在做一些最简单的修改，其它代码什么的都不懂 我想学习 但不知道从何下手。所以有些问题急急忙忙的去提问，语气上没有尊重回答者。我下次一定会注意。谢谢了

追答

欧了

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/v2fe7ve22v2f2r2ev7j.html