Vba Excel只是粘贴了我范围的一部分，其余的都出错了。我该如何解决这个问题？
我正在构建一个宏，它允许用户选择一个文件夹，选择要导入的选项卡，然后打开文件夹中的每个文件，获取给定选项卡中的所有数据，并将其导入一个主工作表以便于查看 它以一种有趣的方式中断—当它将数据粘贴到行中时Vba Excel只是粘贴了我范围的一部分，其余的都出错了。我该如何解决这个问题？,vba,Vba,我正在构建一个宏，它允许用户选择一个文件夹，选择要导入的选项卡，然后打开文件夹中的每个文件，获取给定选项卡中的所有数据，并将其导入一个主工作表以便于查看 它以一种有趣的方式中断—当它将数据粘贴到行中时 DestinationWorkbook.Sheets("Data").Range("A" & LastrowOutput).Resize(DataRng.Rows.Count, DataRng.Columns.Count).Value = DataRng.Value 它在一些数据中发布，
DestinationWorkbook.Sheets("Data").Range("A" & LastrowOutput).Resize(DataRng.Rows.Count, DataRng.Columns.Count).Value = DataRng.Value
Sub PullingAllData()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim sPath As String
Dim sFil As String
Dim FolderPath As String
Dim diaFolder As FileDialog
Dim DestinationWorkbook As Workbook
Dim DataRng As Range
Dim LastrowInput As Double
Dim LastrowOutput As Double
'Open the file dialog
Set diaFolder = Application.FileDialog(msoFileDialogFolderPicker)
diaFolder.AllowMultiSelect = False
diaFolder.Show
FolderPath = diaFolder.SelectedItems(1)
' Cycle through spreadsheets in selected folder
Set DestinationWorkbook = ActiveWorkbook
Dim ImportTabNumber As Integer
ImportTabNumber = InputBox("Please Enter the tab to import.*", "Account Name")
sPath = FolderPath & "\" 'location of files
sFil = Dir(sPath & "*.xlsx") 'change or add formats
Do While sFil <> "" 'will start LOOP until all files in folder sPath have been looped through
Set owbk = Workbooks.Open(sPath & "\" & sFil) 'opens the file
If owbk.Sheets.Count >= ImportTabNumber Then
Set InputTab = owbk.Sheets(ImportTabNumber)
LastrowInput = InputTab.Range("A" & Rows.Count).End(xlUp).Row
Set DataRng = InputTab.Range("A1:DO" & LastrowInput).SpecialCells(xlCellTypeVisible)
LastrowOutput = DestinationWorkbook.Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row + 1
DestinationWorkbook.Sheets("Data").Range("A" & LastrowOutput).Resize(DataRng.Rows.Count, DataRng.Columns.Count).Value = DataRng.Value
End If
owbk.Close True
sFil = Dir
Loop
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
Sub-PullingAllData（）
Application.ScreenUpdating=False
Application.Calculation=xlCalculationManual
像细绳一样暗淡
将sFil设置为字符串
将FolderPath设置为字符串
“将文件夹设置为文件”对话框
将目标工作簿设置为工作簿
Dim DataRng As范围
将LastrowInput设置为双精度
将LastRow输出设置为双精度
'打开文件对话框
Set diaFolder=Application.FileDialog（msoFileDialogFolderPicker）
diaFolder.AllowMultiSelect=False
diaFolder.Show
FolderPath=diaFolder.SelectedItems（1）
'循环浏览选定文件夹中的电子表格
设置DestinationWorkbook=ActiveWorkbook
Dim ImportTabNumber为整数
ImportAttabNumber=InputBox（“请输入要导入的选项卡。*”，“帐户名”）
sPath=文件夹路径和文件的“\”位置
sFil=Dir（sPath&“*.xlsx”）'更改或添加格式
Do While sFil“”将启动循环，直到文件夹sPath中的所有文件都已循环通过
Set owbk=Workbooks.Open（sPath&“\”&sFil）”打开文件
如果owbk.Sheets.Count>=导入编号，则
设置InputTab=owbk.工作表（导入编号）
LastrowInput=inputAB.Range（“A”和Rows.Count）.End（xlUp）.Row
设置DataRng=InputAB.Range（“A1:DO”和LastrowInput）.SpecialCells（xlCellTypeVisible）
LastrowOutput=DestinationWorkbook.Sheets（“数据”）.Range（“A”和Rows.Count）。End（xlUp）。Row+1
DestinationWorkbook.Sheets（“数据”）.Range（“A”和LastrowOutput）。调整大小（DataRng.Rows.Count、DataRng.Columns.Count）。Value=DataRng.Value
如果结束
owbk.Close为真
sFil=Dir
环
Application.Calculation=xlCalculationAutomatic
Application.ScreenUpdating=True
端接头
变量将MyData设置为变量：MyData=MyRange.Value变量将MyData设置为变量：MyData=MyRange.Value在将代码投入生产之前，我强烈建议进行更多的测试（使用更多的文件）。如果该代码已经中断，将来很可能再次中断。您不能使用行。请在多区域范围内计数以获取总行数：它将只返回第一个区域中的行数。因此，如果输入范围中存在隐藏行，代码将失败。您也无法仅使用
rng1.Value=rng2.Value