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

วิธีบันทึกไฟล์ Excel ด้วยค่าเซลล์

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

บันทึกไฟล์ Excel ด้วยค่าเซลล์เฉพาะโดยใช้รหัส VBA

แท็บ Office เปิดใช้งานการแก้ไขและเรียกดูแบบแท็บใน Office และทำให้งานของคุณง่ายขึ้นมาก ...
Kutools สำหรับ Excel แก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%
  • ใช้ซ้ำอะไรก็ได้: เพิ่มสูตรที่ใช้มากที่สุดหรือซับซ้อนแผนภูมิและสิ่งอื่นใดในรายการโปรดของคุณและนำกลับมาใช้ใหม่ได้อย่างรวดเร็วในอนาคต
  • คุณสมบัติข้อความมากกว่า 20 รายการ: แยกหมายเลขจากสตริงข้อความ แยกหรือลบบางส่วนของข้อความ แปลงตัวเลขและสกุลเงินเป็นคำภาษาอังกฤษ
  • ผสานเครื่องมือ: สมุดงานและแผ่นงานหลายเล่มเป็นหนึ่งเดียว ผสานหลายเซลล์ / แถว / คอลัมน์โดยไม่สูญเสียข้อมูล รวมแถวและผลรวมที่ซ้ำกัน
  • แยกเครื่องมือ: แยกข้อมูลออกเป็นหลายแผ่นตามมูลค่า; สมุดงานหนึ่งเล่มเป็นไฟล์ Excel, PDF หรือ CSV หลายไฟล์ หนึ่งคอลัมน์ถึงหลายคอลัมน์
  • วางการข้าม แถวที่ซ่อน / กรอง; นับและผลรวม โดย Background Color; ส่งอีเมลส่วนบุคคลไปยังผู้รับหลายคนในกลุ่ม
  • ซุปเปอร์กรอง: สร้างโครงร่างตัวกรองขั้นสูงและใช้กับแผ่นงานใด ๆ ประเภท ตามสัปดาห์วันความถี่และอื่น ๆ กรอง by ตัวหนาสูตรคอมเม้น ...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ; ทำงานร่วมกับ Office 2007-2021 และ 365; รองรับทุกภาษา ง่ายต่อการปรับใช้ในองค์กรหรือองค์กรของคุณ

ลูกศรสีฟ้าฟองขวา บันทึกไฟล์ Excel ด้วยค่าเซลล์เฉพาะโดยใช้รหัส VBA

รหัส VBA ต่อไปนี้อาจช่วยคุณในการบันทึกสมุดงานของคุณด้วยค่าเซลล์ที่ระบุโปรดทำดังนี้:

1. กด ALT + F11 คีย์เพื่อเปิด หน้าต่าง Microsoft Visual Basic for Applications.

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

รหัส VBA: บันทึกไฟล์ Excel ด้วยค่าเซลล์เฉพาะ

Private Sub filename_cellvalue()
'Update 20141112
Dim Path As String
Dim filename As String
Path = "C:\Users\dt\Desktop\my information\"
filename = Range("A1")
ActiveWorkbook.SaveAs filename:=Path & filename & ".xls", FileFormat:=xlNormal
End Sub

3. จากนั้นกด F5 คีย์ในการรันโค้ดและสมุดงานของคุณได้รับการตั้งชื่อเป็นเนื้อหาเซลล์ของเซลล์ A1 ดูภาพหน้าจอ:

doc-save-with-cell-value-1

หมายเหตุ:

1. คุณสามารถระบุค่าเซลล์ใด ๆ เป็นชื่อไฟล์ได้โดยเพียงแค่แก้ไข A1 เป็นการอ้างอิงเซลล์อื่นในโค้ดด้านบน

2. สมุดงานที่ใช้งานของคุณจะถูกบันทึกลงในโฟลเดอร์ของ C: \ Users \ dt \ Desktop \ ข้อมูลของฉัน \ (ต้องมีเครื่องหมายทับสุดท้ายเมื่อคุณวางตำแหน่งของคุณแทนตำแหน่ง) คุณสามารถเปลี่ยนเส้นทางได้ตามต้องการ


บทความที่เกี่ยวข้อง:

วิธีบันทึกไฟล์ด้วยวันที่และเวลาใน Excel

วิธีแสดงเส้นทางไฟล์ในแถบชื่อเรื่องหรือแถบเครื่องมือใน Excel


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

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
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (33)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
โมดูลไม่บันทึกใน .XlsX ; คิดว่ามันเกี่ยวอะไรกับบรรทัดที่ 7;; ".xls", รูปแบบไฟล์:=xlNormal; ฉันจะแก้ไขเพื่อรับค่าจาก 3 เซลล์ที่ต่างกันได้อย่างไร ตัวอย่างเช่น: ชื่อ , นามสกุล , วันที่; ในบรรทัดที่ 6 ของรหัส?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ชื่อไฟล์ Dim As String
Dim filename1 เป็นสตริง
Dim filename2 เป็นสตริง

เส้นทาง = "C:\Users\dt\Desktop\my information\"
ชื่อไฟล์ = ช่วง ("A1")
filename1 = ช่วง ("A2")
filename2 = ช่วง ("A3")
ActiveWorkbook.SaveAs filename:=Path & filename & "-" & filename1 & "-" & filename2 ".xls", FileFormat:=xlNormal
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คริส. คุณสามารถเชื่อมข้อมูลในเซลล์ที่แยกจากกัน แล้วอ้างอิงเซลล์นั้นเป็นค่าชื่อไฟล์ของคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี Mine จะบันทึกเป็นพาธและชื่อไฟล์เท่านั้น ฉันเพียงต้องการบันทึกชื่อไฟล์ที่อ้างอิงจากเซลล์เท่านั้น คุณช่วยฉันได้ไหม?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มันค่อนข้างเจ๋ง... แต่ดูเหมือนว่าจะมีจุดบกพร่องที่ฉันไม่แน่ใจว่าจะแก้ไขอย่างไร ฉันใช้สิ่งนี้ในเทมเพลตที่เปิดใช้งานมาโคร ฉันเปิดเทมเพลต ฉันทำการเปลี่ยนแปลง/อัปเดต ฉันกด F5 เพื่อเรียกใช้แมโคร... และ... กล่องโต้ตอบ "ไปที่" ปรากฏขึ้นโดยคาดหวังให้ฉันป้อน "ข้อมูลอ้างอิง" อย่างไรก็ตาม หากฉันกด ALT F11 แล้วกด F5 ไฟล์ .xls ใหม่จะถูกบันทึกตามที่คาดไว้ ฉันจำเป็นต้องเปิดโมดูล Visual Basic เสมอเพื่อเรียกใช้ขั้นตอน "บันทึก" นี้หรือไม่
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันมีเทมเพลตที่ฉันไม่ต้องการเขียนทับ เพื่อให้ผู้ใช้ต้องบันทึกไฟล์ที่ตั้งชื่อตามวันที่ที่ป้อนลงในฟิลด์ใดฟิลด์หนึ่ง ฉันไม่ต้องการให้ผู้ใช้ต้องเปิดเครื่องมือแล้วเลือก / เรียกใช้แมโคร พวกเขาอาจป้อนชื่อไฟล์ได้เช่นกัน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คุณสามารถเพิ่ม =NOW() เป็นพารามิเตอร์ให้กับชื่อไฟล์ของคุณในเซลล์ก่อนที่คุณจะแตกไฟล์ในมาโคร (และยังวางปุ่มมาตรฐานไว้ที่มุมของหน้าเพื่อให้พนักงานไม่ต้องเปิดเครื่องมือใดๆ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
พวกคุณคือผู้ช่วยชีวิต ขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันต้องการบันทึกเป็นไฟล์ .csv ฉันจะเปลี่ยนสิ่งนี้เพื่อให้บันทึกเป็นไฟล์ .csv ได้อย่างไร ชื่อไฟล์ย่อยส่วนตัว_cellvalue() 'อัปเดต 20141112 Dim Path As String ชื่อไฟล์ Dim As String Path = "C:\Doorlister\import\DoorJob\" filename = Range("AC2") ActiveWorkbook.SaveAs filename:=Path & filename & ".xls ", FileFormat:=xlNormal End Sub ขอขอบคุณล่วงหน้าสำหรับความช่วยเหลือของคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันคิดว่าฉันทำอะไรผิดที่นี่ ...

มันทำให้ฉันมีข้อผิดพลาดในบรรทัด Sheets("shitname")).Select

อาจเป็นเพราะฉันทำผิดเมื่อฉันตั้งชื่อ "ชื่ออึ" เช่นเซลล์ K10

ฉันต้องการเปลี่ยนชีตเป็นชีตอื่นที่เรียกว่าเหมือนกับเซลล์ K10


' จิ๊กเซล มาโคร
'
' แป้นพิมพ์ลัด: Ctrl+Shift+C
'
Selection.Copy
ชีต("debagat") เลือก
Rows("8:8")).เลือก
ActiveSheet วาง
เส้นทางมืดเป็นสตริง
เส้นทาง = "C:\cgxml\"
ชื่อไฟล์ Dim As String
ชื่อไฟล์ = ช่วง ("A8")
หรี่ชื่ออึเป็นสตริง
shitname = ช่วง ("K10")
แผ่นงาน("ชื่ออึ") เลือก
Application.CutCopyMode = เท็จ
ActiveWorkbook.SaveAs ชื่อไฟล์:=Path & ชื่อไฟล์ & ".xml", FileFormat:=xltxt, CreateBackup:=False
ชีต("TOTAL")).Select
ActiveCell.Offset(1, 0).ทั้งแถว.เลือก
ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ใช้งานได้ดี... ขอบคุณ แต่ฉันต้องบันทึกเป็น PDF... มีความคิดเห็นอย่างไรบ้าง

ขอบคุณ

คริส
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เช่นเดียวกับด้านบน แต่แทนที่ ActiveWorkbook.SaveAs ด้วย: "ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _"C:\input filenamne.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreaas:=False, _
OpenAfterPublish:=จริง
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณสำหรับความคิดเห็นของคุณ ช่วยฉันได้มาก
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี
ฉันควรเพิ่มอะไรหากต้องการบันทึกเวิร์กชีตที่ใช้งานอยู่แต่ใช้ค่าเซลล์ชีต 1
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ได้โปรดช่วยด้วย... ฉันทำได้ทุกอย่างแล้ว แต่จะบันทึกเอกสารลงใน My Documents แทนเซิร์ฟเวอร์ที่ระบุ...



คำสั่งย่อยส่วนตัวButton1_Click()
เส้นทางมืดเป็นสตริง
Dim FileName1 เป็นสตริง
Dim FileName2 เป็นสตริง
Dim FileName3 เป็นสตริง
Dim FileName4 เป็นสตริง
Dim FileName5 เป็นสตริง
เส้นทาง = "J:\Protection Services\Documents\Booysendal ความปลอดภัย"
ชื่อไฟล์1 = ช่วง ("A2")
ชื่อไฟล์2 = ช่วง ("B2")
ชื่อไฟล์3 = ช่วง ("C2")
ชื่อไฟล์4 = ช่วง ("D2")
FileName5 = ช่วง ("E2")
ActiveWorkbook.SaveAs ชื่อไฟล์:=FileName1 & "-" & FileName2 & "-" & FileName3 & "-" & FileName4 & "-" & FileName5 & ".xls", FileFormat:=xlNormal
ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เพิ่มแบ็กสแลชหลังการรักษาความปลอดภัยและก่อนใบเสนอราคา... ...ความปลอดภัย\"
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
จะทำอย่างไรถ้าคุณต้องการให้คุณกำหนดชื่อไฟล์แต่มีตัวเลือกในการเลือกเส้นทางของไฟล์ทุกครั้งที่คุณบันทึก

นอกจากนี้ คุณสามารถระบุหลายเซลล์สำหรับชื่อไฟล์ได้ เซลล์จะถูกรวมเข้าด้วยกันด้วย

บันทึกไปยังเส้นทางไฟล์ที่แตกต่างกันในแต่ละครั้ง

ใช้หลายเซลล์สำหรับชื่อไฟล์
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ตกลงดังนั้นฉันจึงใช้งานได้ดีโดยใช้ปุ่มในแผ่นงาน ตอนนี้ฉันต้องการให้มันบันทึกตามปกติหลังจากบันทึกเป็นครั้งแรก สามารถทำได้หรือไม่ ใช้ปุ่มบันทึกเดียวกัน?
ขอบคุณ Bruce
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
วิธีสร้างมาโครเพื่อบันทึกแผ่นงานหลายแผ่นโดยใช้ค่าเซลล์เป็นชื่อไฟล์
ขอบคุณ,
ราจีฟ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีทุกคน!

จะบันทึกการป้อนข้อมูลซ้ำในเซลล์เดียวกัน ในเซลล์อื่น ด้วยมาโครได้อย่างไร

ในชีต 1 ฉันป้อนข้อมูลใน A1, B1, C1 เป็นเวลา n ครั้งในหนึ่งวัน ในแผ่นที่ 2 ฉันต้องการบันทึกระเบียนทั้งหมดนี้ใน A2, B2, C2, A3, B3, C3 ฯลฯ Tnx!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีเพื่อน,
ฉันมีปัญหาและจะดีใจถ้ามีคนช่วยฉัน
ฉันมีไฟล์อยู่ที่ไดรฟ์ "F" และโฟลเดอร์ "ABS" - ชื่อไฟล์ของฉันคือ "Listdata"
ในไฟล์ Excel บนเดสก์ท็อปของฉัน ฉันต้องการให้เซลล์ (4,4) ดึงข้อมูลจากชีต "ABS" (1) และเซลล์ (2,2)
รหัสด้านล่าง
ย่อย Macro1()
activesheet.Cells(4, 4).Value = " F:\ABS\" & listdata & ".xlsx" & Sheets(1).Cells(2, 2).Value
ย่อยสิ้นสุด
แต่มันทำงานไม่ถูกต้อง
ขอบคุณเพื่อน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ฉันกำลังพยายามใช้รหัสนี้ แต่เมื่อฉันพยายามเรียกใช้งาน ฉันได้รับข้อผิดพลาดรันไทม์ 1004 และไฮไลต์แถวที่ 7 ไม่ถูกต้อง: ActiveWorkbook.SaveAs filename:=Path & filename & ".xls", FileFormat:=xlNormal
ฉันจะแก้ไขปัญหานี้ได้อย่างไร ฉันใช้ office 365
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Se a célula de referencia estiver em uma outra planilha já aberta? โคโม ฟาโซ?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี. ฉันตื่นเต้นมากที่มันสามารถทำงานได้ แต่สำหรับฉันในนั้นมันบอกว่า "ข้อผิดพลาดรันไทม์ขั้นพื้นฐาน ไม่ได้กำหนดขั้นตอนสะอื้นหรือขั้นตอนการทำงาน" และลูกศรระบุบรรทัดที่ 6 จะทำอย่างไร?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันมีปุ่มควบคุมสำหรับบันทึกเป็น PDF ด้วยชื่อเฉพาะไปยังตำแหน่งเฉพาะที่ใช้งานได้ แต่ฉันต้องการแก้ไขรหัสเนื่องจากชื่อไฟล์คือชื่อแผ่นงานที่ใช้งานอยู่บวกกับค่าของเซลล์เฉพาะจากแผ่นงานอื่น ฉันจะทำอย่างไร นี่คือสิ่งที่ฉันมีสำหรับการบันทึกเป็น PDF:


คำสั่งย่อยส่วนตัวButton1_Click()
Application.ScreenUpdating = เท็จ
ActiveSheet.ExportAsFixedFormat ประเภท:=xlTypePDF, _
filename:="\\U:\Documents\My_IT_Stuff\T&A\PP11", _
OpenAfterPublish: = False
Application.ScreenUpdating = จริง
ย่อยสิ้นสุด

ขอขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ใครก็ได้โปรดช่วยแก้ปัญหาด้วย ฉันได้ผลลัพธ์ที่ถูกต้องแล้วหากเซลล์ไม่ว่างเปล่า

Saveas ย่อยส่วนตัว()

เส้นทางสลัว As String

Dim filename1 เป็นสตริง



เส้นทาง = "C:\User\Compwork\"



filename1 = เส้นทาง & ช่วง ("G4") & " " & "-" & " " & ช่วง ("G6") & " " & "-" & " " & ช่วง ("H7") & " " & "VTError "

Application.DisplayAlerts = เท็จ

ActiveWorkbook.Saveas ชื่อไฟล์1, รูปแบบไฟล์:=52, CreateBackup:=False

ThisWorkbook.Worksheets("report")).ExportAsFixedFormat Type:=x1typePDF, Filename:=filename1.

Application.DisplayAlerts = จริง

ActiveWorkbook ปิด



ย่อยสิ้นสุด



อย่างไรก็ตาม ปัญหาของฉันคือฉันต้องการบันทึกชื่อไฟล์โดยไม่เว้นวรรคหากค่าของเซลล์เป็น NULL เช่น หากค่า G6 ว่างเปล่า ฉันก็ชอบผลลัพธ์ "G4-H7 VTError"
มีวิธีใดที่จะเข้าใกล้สิ่งนี้?


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

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

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