带结尾的VBAXl选择特定范围

编程问答 2022-08-16

问题描述

在从专用文件夹中选择每个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 (将#修改为@）

csvcsvexcelexcelextract