Note: The other languages of the website are Google-translated. Back to English

วิธีเปิดไฟล์ excel โดยใช้หน้าต่างเรียกดู

อาจเป็นเรื่องง่ายและรวดเร็วสำหรับคุณในการเปิดไฟล์ excel จากหน้าต่างเรียกดูเมื่อจัดการกับเวิร์กบุ๊กแทนที่จะย่อขนาดเวิร์กบุ๊กที่เปิดใช้งานเพื่อเลือกและเปิดเวิร์กบุ๊กอื่น บทช่วยสอนนี้จะพูดถึงวิธีการเปิดไฟล์ excel โดยใช้หน้าต่างเรียกดูในสมุดงาน Excel

เปิดไฟล์ Excel โดยใช้หน้าต่างเรียกดูด้วยรหัส VBA


เปิดไฟล์ Excel โดยใช้หน้าต่างเรียกดูด้วยรหัส VBA

หากต้องการเปิดสมุดงาน Excel โดยใช้หน้าต่างเรียกดูรหัส VBA ต่อไปนี้สามารถช่วยคุณได้โปรดดำเนินการดังนี้:

1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางมาโครต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.

รหัส VBA: เปิดสมุดงาน Excel โดยใช้หน้าต่างเรียกดู:

Sub OpenNewBox()
Dim xFilePath As String
Dim xObjFD As FileDialog
Set xObjFD = Application.FileDialog(msoFileDialogFilePicker)
  With xObjFD
        .AllowMultiSelect = False
        .Filters.Add "Excel Files", "*.xls; *.xlsx; *.xlsm; *.xlsb", 1
        .Show
        If .SelectedItems.Count > 0 Then
            xFilePath = .SelectedItems.Item(1)
        Else
            Exit Sub
        End If
    End With
    Workbooks.Open xFilePath
End Sub

3. หลังจากวางโค้ดด้านบนแล้วให้กด F5 คีย์เพื่อเรียกใช้รหัสนี้และ หมวดหมู่สินค้า หน้าต่างจะปรากฏขึ้นจากนั้นเลือกเวิร์กบุ๊ก Excel ที่คุณต้องการเปิดจากนั้นคลิก OK ปุ่มดูภาพหน้าจอ:

doc เปิดไฟล์เบราว์เซอร์ 1

4. และสมุดงานเฉพาะจะเปิดขึ้นทันที


เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel แก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office/Excel 2007-2021 และ 365 รองรับทุกภาษา ง่ายต่อการปรับใช้ในองค์กรหรือองค์กรของคุณ คุณสมบัติเต็มรูปแบบ ทดลองใช้ฟรี 30 วัน รับประกันคืนเงินภายใน 60 วัน
kte แท็บ 201905

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (1)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ย่อย mail_merge()

เกี่ยวกับข้อผิดพลาดต่อไป

Dim xStrFile เป็นสตริง
Dim xFilePath เป็นสตริง
Dim xFileDlg เป็น FileDialog
Dim xFileDlgItem เป็นตัวแปร
Dim xOutApp เป็น Outlook.Application
Dim xMailOut เป็น Outlook.MailItem
Application.ScreenUpdating = เท็จ
Dim data_file เป็นสมุดงาน

'ตั้งค่า WB_Data_file = Workbooks.Open(ThisWorkbook.Sheets("sheet1")).Range("h11")).Value)
'WB_Data_file.Activate
'WB_Data_file.Sheets("sheet1")).Activate
Lastrow = ActiveWorkbook.Sheet("Data ").Range("a" & Rows.Count).End(xlUp).Row
'username1 = Environ.ชื่อผู้ใช้
สำหรับฉัน = 2 เพื่อ Lastrow

'******โปรดเปลี่ยนเส้นทางไฟล์ของคุณที่นี่****************************
'C:\Users\BodapatiSarada\Desktop\Maxi โครงการ2\กำลังตรวจสอบไฟล์
เส้นทาง = "C:\Users\000H6P744\Desktop\Test project\" & ActiveWorkbook.Sheets("Data ").Range("E" & i).Value & ".xlsx" ' เราต้องเปลี่ยนเส้นทาง
ตั้งค่า xOutApp = CreateObject("Outlook.Application")
ตั้งค่า xMailOut = xOutApp.CreateItem(olMailItem)
'ถ้า xFileDlg.Show = -1 แล้ว
ด้วย xMailOut
.BodyFormat = olFormatRichText
.To = ActiveWorkbook.Sheets("Data ").Cells(i, 1).Value
.CC = ActiveWorkbook.Sheets("Data ").Cells(i, 2).Value
.Subject = ActiveWorkbook.Sheet("Data ").Cells(i, 3).Value
.body = ActiveWorkbook.Sheets("Data ").Cells(i, 4).Value
.แสดง
.Attachments.Add Path
.แสดง
.ส่ง

Application.Wait (ตอนนี้() + TimeValue("0:00:01"))
จบด้วย
ActiveWorkbook.Sheets("Data ").Cells(i, 6).Value = "เสร็จสมบูรณ์"

ต่อไป

Application.Wait (ตอนนี้() + TimeValue("0:00:01"))

ตั้งค่า xMailOut = ไม่มีอะไร
ตั้งค่า xOutApp = Nothing
Application.ScreenUpdating = จริง

MsgBox "เสร็จแล้ว"

ย่อยสิ้นสุด




มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ

ช่องทางอื่นๆ

ลิขสิทธิ์© 2009 - wwwextendoffice.com | สงวนลิขสิทธิ์. ขับเคลื่อนโดย ExtendOffice. | แผนผังเว็บไซต์
Microsoft และโลโก้ Office เป็นเครื่องหมายการค้าหรือเครื่องหมายการค้าจดทะเบียนของ Microsoft Corporation ในสหรัฐอเมริกาและ / หรือประเทศอื่น ๆ
ได้รับการปกป้องโดย Sectigo SSL