如何解决带结尾的VBAXl选择特定范围
在从专用文件夹中选择每个CSV文件中的数据区域时,我需要一点帮助。我希望仅提取该数据区域并将其放入名为“所有数据”的主表中。每个CSV文件具有相同的格式,不超过1000行,具有相同的数据区域,但是每个CSV文件具有不同的行。常数是该区域位于每个CSV的底部。此外,在该区域中,我还希望排除前三行,因为它们包含标题,我只需要数据。我已经编译了找到CSV填充文件夹的位置,但是我仍然无法找到区域提取部分。代码如下。
Sub CombineCSVs()
Dim Path As String
' Folder finder
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Select a folder containing all CSV files"
.Show
.AllowMultiSelect = False
If .SelectedItems.Count = 0 Then
MsgBox "No folder selected"
ActiveWorkbook.Close savechanges:=False
Application.ScreenUpdating = True
Application.StatusBar = False
Exit Sub
End If
Path = .SelectedItems(1) & "\"
End With
' File checker
' Checks for CSV files only
Dim FileName As String
FileName = Dir(Path & "*.csv")
Dim ws As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
' Extraction of file onto main with file name as Sheet name
Do While FileName <> ""
Workbooks.Open Path & FileName
For Each ws In ActiveWorkbook.Sheets
CurrentRegion(Range("B1000").End(xlUp).End(xlUp).Offset(3,0),Range("N1000").End(xlUp)).Copy Workbooks("Testing Compilation").Worksheets("All Data")
Next ws
Loop
Application.ScreenUpdating = False
Application.DisplayAlerts = False
End Sub
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。