Snasui Excel Forum

Code: Select all

Sub ImportCSVFile()
  Dim fileToOpen As Variant
  Dim fileFilterPattern As String
  Dim wsMaster As Worksheet
  Dim wbTextImport As Workbook
  '
  Application.ScreenUpdating = False
    fileFilterPattern = "Text Files (*.txt; *.csv),*.txt;*.csv"
  fileToOpen = Application.GetOpenFilename(fileFilterPattern)
  If fileToOpen = False Then
    MsgBox "คุณไม่ได้เลือกไฟล์ที่จะนำเข้า" vbOKOnly + vbInformation, "ยกเลิกการนำเข้าข้อมูล"
  Else
    Workbooks.Open FileName:=fileToOpen, UpdateLinks:=0, Local:=True
    Set wbTextImport = ActiveWorkbook
    Set wsMaster = ThisWorkbook.Worksheets("DMC")
    wsMaster.Rows("2:" & Rows.Count).ClearContents
    wbTextImport.Worksheets(1).Range("B2").CurrentRegion.Copy wsMaster.Range("B2")
    wbTextImport.Close False
  End If
  Application.ScreenUpdating = True
  Sheet1.Activate
  Range("B2").Select
End Sub

Code: Select all

'Other code
Else
  'Other code
  wbTextImport.Worksheets(1).Range("B2").CurrentRegion.Copy
  wsMaster.Range("B2").PasteSpecial xlPasteValues
  Application.CutCopyMode = False
  wbTextImport.Close False
End If
Other code