สวัสดีชาวเฟรนด์
ฉันกำลังมองหาวิธีแก้ปัญหาที่
ผู้ใช้สามารถเลือกไฟล์ได้[/*]ขึ้นอยู่กับไฟล์ที่เลือก การดำเนินการเพิ่มเติมสามารถทำได้ในไฟล์นั้น[/*]ตามความต้องการของฉัน ฉันได้ลองเขียนโค้ดแล้ว แต่เมื่อไฟล์เปิด แมโครจะไม่ทำงานหลังจากนั้น กรุณาค้นหาด้านล่างรหัส[/*]
การสร้างไฟล์ย่อย ()
Dim FolderPath เป็นสตริง
หรี่ชื่อไฟล์เป็น Variant
หนังสือเปิดติ่มซำเป็นสมุดงาน
Dim file_name เป็น Variant
Dim bFileSaveAs เป็นบูลีน
Application.ScreenUpdating = เท็จ
ชื่อไฟล์ = Application.GetOpenFilename(Title:="Select Configuration Template")
ถ้าชื่อไฟล์ <> เป็นเท็จ แล้ว
ตั้ง openbook = Application.Workbooks.Open (ชื่อไฟล์)
สมุดงานนี้เปิดใช้งาน
openbook.Worksheets("User Master")). เปิดใช้งาน
ถ้า Range("C6") <> "" แล้ว
ActiveSheet.Range("B6:T") คัดลอก
สมุดงานเพิ่ม
แผ่นงาน("User Master")).Add
ช่วง("A1") เลือก
ActiveSheet วาง
อื่น
ช่วง("A1:XFD1048576") เลือก
การเลือกคัดลอก
สมุดงานเพิ่ม
แผ่นงาน("User Master")).Add
ช่วง("A1") เลือก
ActiveSheet วาง
End If
bFileSaveAs = Application.Dialogs(xlDialogSaveAs).แสดง
ถ้าไม่ใช่ bFileSaveAs แสดงว่า MsgBox "ผู้ใช้ยกเลิก", vbCritical
ActiveWorkbook ปิด
แผ่นงาน("ชุมชน") เปิดใช้งาน
ช่วง("A1:G1") เลือก
ช่วง(Selection, Selection.End(xlDown)).Copy
สมุดงานเพิ่ม
ActiveSheet วาง
bFileSaveAs = Application.Dialogs(xlDialogSaveAs).แสดง
ถ้าไม่ใช่ bFileSaveAs แสดงว่า MsgBox "ผู้ใช้ยกเลิก", vbCritical
ActiveWorkbook ปิด
แผ่นงาน("ตัวติดตั้งเว็บ") เปิดใช้งาน
ช่วง("A1:ZZ1") เลือก
ช่วง(Selection, Selection.End(xlDown)).Copy
สมุดงานเพิ่ม
แผ่นงาน("เชิญผู้ใช้") เพิ่ม
ช่วง("A1") เลือก
ActiveSheet วาง
bFileSaveAs = Application.Dialogs(xlDialogSaveAs).แสดง
ถ้าไม่ใช่ bFileSaveAs แสดงว่า MsgBox "ผู้ใช้ยกเลิก", vbCritical
ActiveWorkbook ปิด
อื่น
MsgBox "ผู้ใช้ยกเลิกการดำเนินการ"
End If
ย่อยสิ้นสุด