Attribute VB_Name = "Module1"
Sub Batch_Clear_Import()

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    Sheets("Sunquest").Visible = True
    Sheets("Sunquest").Select
    Columns("A:G").Select
    Selection.ClearContents
    Range("A1").Select
    Sheets("Sunquest").Visible = xlSheetVeryHidden
    
    Sheets("PCR Set-up").Select
    Range("E4").Select
    Selection.ClearContents
    Range("D6").Select
    Selection.ClearContents
    Range("F6").Select
    Selection.ClearContents
    Range("J6").Select
    Selection.ClearContents
    Range("N6").Select
    Selection.ClearContents
    
    Sheets("CSV_Import").Select
    Columns("A:G").Select
    Selection.ClearContents
    Selection.ColumnWidth = 8.43
    Range("A1").Select
    
    Sheets("Batch").Visible = True
    Sheets("Batch").Select
    Columns("A:L").Select
    Selection.ClearContents
    Selection.ColumnWidth = 8.43
    Range("A1").Select
    
    Dim ws As Worksheet, strFile As String
    Dim dlgOpen As FileDialog
    
    Set dlgOpen = Application.FileDialog(msoFileDialogFilePicker)
    With dlgOpen
        .AllowMultiSelect = True
        'change InitialFileName
        .InitialFileName = "\\cpathngs\NGSData\AB7500\COVID-19\Batches\"
        .Show
    End With
    
    For Each fname In dlgOpen.SelectedItems
        ImportB fname
    Next
    
    'Application.DisplayAlerts = True
    'ws_path
    batch_id = Sheets("Patient List").Range("I2")
    ws_path = "\\cpathngs\NGSData\AB7500\COVID-19\Upstate_RealTime_COVID-19\Run_Worksheets\"
    file_name = ws_path + batch_id
    ActiveWorkbook.SaveAs Filename:=file_name
    MsgBox ("Batch Imported and Run Worksheet " & batch_id & _
            " saved in " & vbNewLine & vbNewLine & ws_path)
            
    Sheets("Batch").Visible = xlSheetVeryHidden
    Sheets("Patient List").Select
    Range("B5").Select
    ActiveWorkbook.Save
    
End Sub
    
Sub ImportB(fname)
    Set ws = ActiveWorkbook.Sheets("Batch")
    With ws.QueryTables.Add(Connection:="TEXT;" & fname, Destination:=ws.Range("A1"))
        .TextFilePlatform = 65001
        .TextFileParseType = xlDelimited
        .TextFileCommaDelimiter = True
        .Refresh
    End With
End Sub