การสั่งเปิดเวิร์กชีตโดยไม่ระบุชื่อ

[Bafnet]

สวัสดีครับอาจารย์
อาจารย์คงสบายดีนะครับ ผมไม่ได้เข้ามาเสียตั้งนาน
วันนี้มีเรื่องติดขัดหน่อยครับ อยากรบกวนอาจารย์และเพื่อนๆทุกท่านแนะนำหน่อยครับ

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

อาจารย์ครับจะแก้คำสั่งยังไงครับ โดยที่ไม่ต้องระบุชื่อชีต("a")

คือต้องการระบุเป็น Sheetที่1 ครับ ไม่ว่าไฟล์ที่สั่งเปิดนั้น Sheetที่1 จะชื่ออะไรก็ตาม
ขอบคุณครับ

[snasui]

ใช้ Worksheets(1) เพื่อระบุว่าเป็น Sheet ที่ 1 ของ Workbook ครับ

[Bafnet]

ขอบคุณครับ ตกม้าตายเลยครับ