Snasui Excel Forum

Code: Select all

Private Sub CommandButton2_Click()
Dim fileToOpen
Dim rs As Range
Dim Mydata As Range
Dim MyFile As String
Dim sFile As String
Dim xFile As String
Dim r As Long
Dim FileSaveName As String
'On Error Resume Next
Application.ScreenUpdating = False
With Workbooks("CIF.xlsm").Worksheets("Cifx")
Set rs = Workbooks("CIF.xlsm").Worksheets("Cifx").Range("A1")
Set Mydata = Workbooks("CIF.xlsm").Worksheets("Cifx").Range("A:AY")
End With
fileToOpen = Application.GetOpenFilename '( _
      FileFilter:="WorkbookMacro(
       '(*.xls),*xls,(*xlsx),*xlsx")
      MyFile = fileToOpen
 If fileToOpen = False Then
  MsgBox "โปรดเลือกไฟล์", vbOKOnly, "DumP"
 Exit Sub
 End If
   If fileToOpen <> False Then
 Workbooks.OpenText Filename:=MyFile
  Application.DisplayAlerts = False
   [color=#FF0000]ActiveWorkbook.[u]Worksheets("a").[/u]Columns("A:AY").Select[/color] 'Sheet1.Columns("A:AY").Select
 Selection.Copy: rs.PasteSpecial xlPasteValues
   Application.CutCopyMode = False
 ActiveWorkbook.Close True
End If