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

วิธีแสดงชื่อรูปภาพ / ชื่อไฟล์ของโฟลเดอร์ไปยังเซลล์ Excel อย่างรวดเร็ว?

ในบทช่วยสอนนี้ฉันจะให้เทคนิคบางอย่างเกี่ยวกับการแสดงชื่อรูปภาพหรือชื่อไฟล์ทั้งหมดของโฟลเดอร์เฉพาะในแผ่นงาน Excel อย่างรวดเร็วตามภาพหน้าจอที่แสดง

การนำทางอย่างรวดเร็ว

แสดงชื่อรูปภาพของโฟลเดอร์ใน Excel ด้วย VBA
แสดงชื่อรูปภาพหรือชื่อไฟล์รูปแบบเฉพาะของโฟลเดอร์ใน Excel ด้วยรายการชื่อไฟล์
ดาวน์โหลดไฟล์ตัวอย่าง

ชื่อภาพรายการ doc 1

แสดงชื่อรูปภาพของโฟลเดอร์ใน Excel ด้วย VBA

ใน Excel ไม่มีฟังก์ชันในตัวที่สามารถแสดงชื่อรูปภาพทั้งหมดของโฟลเดอร์ที่คุณเลือกในเซลล์ของแผ่นงานได้โดยอัตโนมัติ แต่ที่นี่ฉันมีรหัส VBA ซึ่งสามารถช่วยคุณแก้งานนี้ได้อย่างรวดเร็ว

1. ใน Excel จากนั้นกด + กุญแจเพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

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

3. คัดลอกโค้ดด้านล่างและวางลงในหน้าต่างโมดูลสคริปต์ใหม่

Sub PictureNametoExcel()
'UpdatebyExtendoffice 
    Dim I As Long
    Dim xRg As Range
    Dim xAddress As String
    Dim xFileName As String
    Dim xFileDlg As FileDialog
    Dim xFileDlgItem As Variant
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a cell to place name list:", "Kutools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xRg = xRg(1)
    xRg.Value = "Picture Name"
    With xRg.Font
    .Name = "Arial"
    .FontStyle = "Bold"
    .Size = 10
    End With
    xRg.EntireColumn.AutoFit
    Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    I = 1
    If xFileDlg.Show = -1 Then
        xFileDlgItem = xFileDlg.SelectedItems.Item(1)
        xFileName = Dir(xFileDlgItem & "\")
        Do While xFileName <> ""
            If InStr(1, xFileName, ".jpg") + InStr(1, xFileName, ".png") + InStr(1, xFileName, ".img") + InStr(1, xFileName, ".ioc") + InStr(1, xFileName, ".bmp") > 0 Then
                xRg.Offset(I).Value = xFileDlgItem & "\" & xFileName
                I = I + 1
            End If
            xFileName = Dir
        Loop
    End If
    Application.ScreenUpdating = True
End Sub

4 กด F5 จากนั้นกล่องโต้ตอบจะปรากฏขึ้นเพื่อให้คุณเลือกเซลล์เพื่อวางชื่อรูปภาพ
ชื่อภาพรายการ doc 1

5 คลิก OK เพื่อดำเนินการต่อเลือกโฟลเดอร์ที่คุณต้องการแสดงชื่อรูปภาพในกล่องโต้ตอบเรียกดู
ชื่อภาพรายการ doc 3

6 คลิก OKตอนนี้ชื่อรูปภาพทั้งหมดในโฟลเดอร์ที่เลือกอยู่ในรายการใน Excel แล้ว
ชื่อภาพรายการ doc 13

หมายเหตุ ในโค้ด VBA คุณสามารถ jpg / png / …ในสตริงโค้ดได้ ถ้า InStr (1, xFileName, ".jpg") + InStr (1, xFileName, ".png") + InStr (1, xFileName, ".img") + InStr (1, xFileName, ".ioc") + InStr (1, xFileName, ".bmp") > 0 จากนั้น เป็นนามสกุลไฟล์ที่คุณต้องการตัวอย่างเช่นหากคุณต้องการแสดงชื่อไฟล์ของไฟล์ในรูปแบบ doc ให้เปลี่ยนเฉพาะสตริงรหัสเป็น ถ้า InStr (1, xFileName, ".doc")> 0 แล้ว

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


ot ย้าย

คุณต้องการเพิ่มค่าจ้างและมีเวลามากพอกับครอบครัวหรือไม่?

แท็บ Office ช่วยเพิ่มประสิทธิภาพของคุณได้ 50% ใน Microsoft Office กำลังทำงานอยู่ในขณะนี้

ไม่น่าเชื่อการทำงานกับเอกสารสองชุดขึ้นไปนั้นง่ายและรวดเร็วกว่าการทำงานในเอกสารเดียว

เมื่อเปรียบเทียบกับเบราว์เซอร์ที่รู้จักกันดีเครื่องมือแบบแท็บใน Office Tab มีประสิทธิภาพและมีประสิทธิภาพมากกว่า

ลดจำนวนการคลิกเมาส์และการพิมพ์แป้นพิมพ์ทุกวันสำหรับคุณบอกลามือเมาส์ได้เลย

หากคุณมักจะทำงานกับเอกสารหลายชุด Office Tab จะช่วยประหยัดเวลาได้อย่างดีเยี่ยม

ทดลองใช้ฟรี 30 วันไม่ต้องใช้บัตรเครดิต

อ่านเพิ่มเติมดาวน์โหลดฟรีเดี๋ยวนี้


แสดงชื่อรูปภาพหรือชื่อไฟล์รูปแบบเฉพาะของโฟลเดอร์ใน Excel ด้วยรายการชื่อไฟล์

นี่คือยูทิลิตี้ - รายการชื่อไฟล์ in Kutools สำหรับ Excel, ซึ่งสามารถ

>> แสดงรายชื่อไฟล์ทั้งหมดในรูปแบบไฟล์ทั้งหมดของโฟลเดอร์ในแผ่นงานใหม่

>> แสดงรายชื่อไฟล์ในรูปแบบไฟล์หนึ่งหรือหลายรูปแบบที่คุณระบุลงใน Excel

>> รายชื่อไฟล์รวมถึงโฟลเดอร์ย่อยและไฟล์และโฟลเดอร์ที่ซ่อนไปยัง Excel

บอกลามือเมาส์และกระดูกคอได้เลย

300 เครื่องมือขั้นสูงของ Kutools for Excel แก้งาน Excel 80% ในไม่กี่วินาทีดึงคุณออกจากการคลิกเมาส์นับพัน

จัดการกับสถานการณ์การทำงาน 1500 สถานการณ์ได้อย่างง่ายดายไม่ต้องเสียเวลาค้นหาโซลูชันมีเวลาสนุกกับชีวิตของคุณ

เพิ่มผลผลิต 80% สำหรับผู้ที่มีประสิทธิภาพสูงกว่า 110000 คนทุกวันรวมถึงคุณด้วย

ไม่ต้องทรมานกับสูตรเจ็บปวดและ VBA อีกต่อไปให้สมองของคุณได้พักผ่อนและมีอารมณ์ในการทำงานที่สนุกสนาน

ทดลองใช้ฟรี 30 วันพร้อมฟีเจอร์เต็มยินดีคืนเงิน 30 วันโดยไม่มีเหตุผล

ร่างกายที่ดีขึ้นสร้างชีวิตที่ดีขึ้น

หลังจากติดตั้ง Kutools for Excel ฟรีแล้วโปรดทำดังนี้:

1. เปิดใช้งานสมุดงานที่คุณต้องการแสดงรายการชื่อไฟล์จากนั้นคลิก Kutools พลัส > นำเข้า / ส่งออก > รายการชื่อไฟล์.
ชื่อภาพรายการ doc 4

2 ใน รายการชื่อไฟล์ ขั้นแรกให้คลิก  ชื่อภาพรายการ doc 5 เพื่อเลือกโฟลเดอร์ที่คุณต้องการแสดงชื่อไฟล์จากนั้นคุณสามารถเลือกช่องทำเครื่องหมายของ รวมไฟล์ในไดเรกทอรีย่อย และ รวมไฟล์และโฟลเดอร์ที่ซ่อนอยู่ ตามที่คุณต้องการ
ชื่อภาพรายการ doc 6

3. จากนั้นเลือกรูปแบบไฟล์ที่คุณต้องการแสดงรายชื่อ ประเภทไฟล์ มาตรา.

ตรวจสอบ ไฟล์ทั้งหมด ซึ่งจะแสดงรายชื่อไฟล์ทั้งหมดในรูปแบบไฟล์ทั้งหมดในโฟลเดอร์ที่เลือก
ชื่อภาพรายการ doc 7
ตรวจสอบ ร่วมกัน และเลือกรูปแบบไฟล์เฉพาะที่คุณต้องการแสดงชื่อไฟล์จากรายการแบบหล่นลงจากนั้นจะแสดงชื่อไฟล์ทั้งหมดของรูปแบบไฟล์ที่คุณเลือกในรายการแบบเลื่อนลง
ชื่อภาพรายการ doc 8
ตรวจสอบ ระบุ จากนั้นพิมพ์นามสกุลไฟล์ (โดยใช้ลูกน้ำเพื่อแยก) ที่คุณต้องการแสดงรายการชื่อไฟล์ในช่องข้อความจากนั้นจะแสดงเฉพาะชื่อไฟล์ที่มีนามสกุลไฟล์ที่ป้อนใน Excel
ชื่อภาพรายการ doc 9

4. เลือกหน่วยขนาดตามที่คุณต้องการจากรายการแบบหล่นลงใน หน่วยขนาดไฟล์ หากคุณต้องการสร้างลิงก์ไปยังชื่อไฟล์ให้เลือก สร้างไฮเปอร์ลิงก์ ตัวเลือก

ชื่อภาพรายการ doc 10 ชื่อภาพรายการ doc 11

5 คลิก Okแผ่นงานใหม่จะถูกสร้างขึ้นเพื่อแสดงชื่อไฟล์และข้อมูลไฟล์บางส่วน
ชื่อภาพรายการ doc 12

เคล็ดลับ: หากคุณต้องการแสดงชื่อแผ่นงานทั้งหมดใน Excel คุณสามารถใช้ Kutools for Excel ' สร้างรายชื่อแผ่นงาน ยูทิลิตี้มันจะสร้างแผ่นงานใหม่เพื่อแสดงชื่อแผ่นงานที่เชื่อมโยงได้ทั้งหมด
สร้างรายการชื่อแผ่นงาน

Kutools สำหรับ Excel: + เครื่องมือที่มีประโยชน์ช่วยลดความซับซ้อนของงานที่ซับซ้อนใน Excel ได้ในไม่กี่คลิก


ดาวน์โหลดไฟล์ตัวอย่าง

ตัวอย่าง


วิธีทำให้คุณโดดเด่นจากฝูงชนทำงานง่ายและสนุกกับชีวิตอย่างสบาย ๆ ?

Kutools for Excel โดยเฉลี่ยจะปรับปรุงประสิทธิภาพ 80% ของคุณทุกวันทำให้คุณมีเวลาอยู่กับครอบครัวและมีความสุขในชีวิต

300 เครื่องมือขั้นสูงแก้ปัญหา Excel 80% คุณไม่ต้องดิ้นรนค้นหาโซลูชันอีกต่อไปทำงานให้เสร็จได้ง่ายขึ้น

จัดการกับสถานการณ์จำลอง Excel 1500 รายการได้อย่างง่ายดายประหยัดเวลาอย่างน้อย 1 ชั่วโมงสำหรับคุณทุกวัน

เป็นผู้เชี่ยวชาญด้าน Excel ใน 5 นาทีรับการยอมรับจากผู้คนและโอกาสในการเลื่อนตำแหน่ง

ยูทิลิตี้คลิกเพียงครั้งเดียวจะจัดการกับการประมวลผลแบบแบตช์ช่วยให้คุณหลีกเลี่ยงการคลิกเมาส์นับพันครั้งบอกลามือเมาส์

กำจัดสูตรท่องจำท่องจำและ VBA ที่ซับซ้อนพักผ่อนให้กับสมองของคุณ

เจ้าหน้าที่ที่มีประสิทธิภาพสูงกว่า 110000 คนและ บริษัท ที่มีชื่อเสียงระดับโลกกว่า 300 บริษัท

ใช้เงินเพียง 39 เหรียญ แต่คุ้มค่ากว่าการฝึกอบรมคนอื่น ๆ $ 4000

ทดลองใช้ฟรี 30 วันโดยไม่มีข้อ จำกัด คืนเงินเต็มจำนวนใน 30 วันโดยไม่มีเหตุผลใด ๆ

ตอนนี้ขอให้คุณมีชีวิตที่ดีขึ้น อ่านเพิ่มเติม ทดลองใช้ฟรี 30 วัน ซื้อเลย

เครื่องมือเพิ่มประสิทธิภาพที่แนะนำ

แท็บ Office - การเรียกดูแบบแท็บการแก้ไขการจัดการเอกสารใน Microsoft Office 2019-2003 และ Office 365


แท็บสำนักงาน

Add-in ระดับมืออาชีพสำหรับการเร่ง Excel 2019-2007 ลดงานชั่วโมงเป็นวินาที

Add-in นี้ประกอบด้วยกลุ่มวิชาชีพหลายสิบกลุ่มโดยมีตัวเลือกมากกว่า 300 รายการจะทำให้งานประจำวันส่วนใหญ่ของคุณเป็นไปโดยอัตโนมัติและเพิ่มประสิทธิภาพการทำงานของคุณอย่างน้อย 50% เช่นกลุ่มของตัวเลือกในคลิกเดียวและการแปลงเป็นกลุ่ม
ตอนนี้เป็นโอกาสของคุณที่จะเร่งความเร็วตัวเองด้วย Kutools for Excel!


จัดเรียงความคิดเห็นโดย
ความคิดเห็น (10)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เป็นไปได้ไหมว่ามีบางอย่างผิดปกติกับรหัส? เพราะมันจะแสดงโฟลเดอร์ที่เต็มไปด้วยรูปภาพ (.png) ว่างๆ เมื่อดึงกล่องขึ้นมาเพื่อเลือกรูปภาพ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เป็นไปได้ไหมว่ามีบางอย่างผิดปกติกับรหัส? file explorer กำลังแสดงโฟลเดอร์ของฉันที่เต็มไปด้วยรูปภาพ (.png) ว่าว่างเปล่า
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันประสบปัญหาเดียวกันกับแทนเนอร์ ในสคริปต์ที่มีนามสกุลไฟล์ที่แตกต่างกันออกไป คุณต้องใช้นามสกุลไฟล์ที่กำลังมองหา ตัวอย่างเช่น คุณบอกว่าไฟล์ของคุณคือ ".png" เช่นกัน ใช้ตัวพิมพ์ใหญ่เช่น ".PNG" อาจใช้งานได้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ตอนนี้มันใช้งานได้สำหรับฉัน ขอบคุณ!!!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
วิธีการส่งออกรูปภาพที่มีชื่อไฟล์เฉพาะใน excel
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี
ตามโค้ดด้านบนนี้ ฉันได้รับชื่อรูปภาพในลำดับที่เพิ่มขึ้น อย่างไรก็ตาม เส้นทางที่วางรูปภาพนั้นเป็นส่วนที่เพิ่มขึ้นเป็นตัวเลข

กรุณาแนะนำวิธีที่ฉันสามารถเก็บรูปแบบเดิมไว้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
อัศจรรย์! ขอบคุณสำหรับการแชร์!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ใน Libreoffice Calc ฉันใช้ฟังก์ชันการนำเข้ารายการไฟล์ลงในแถว/คอลัมน์ของตาราง Calc ผ่าน Macro และตามเกณฑ์บางอย่าง - ฉันได้สร้างปุ่มบนแถบเครื่องมือสำหรับมาโครเฉพาะนี้แล้ว และหลังจากกดลงไป ฉัน เลือกโฟลเดอร์ และรายการรูปภาพจะถูกแทรกลงในเอกสารใหม่ทันที จะทำให้ง่ายที่สุดใน Excel ได้อย่างไร? ฉันมีโฟลเดอร์จำนวนมากที่มีรูปภาพตั้งแต่ 1 รูปขึ้นไป และฉันต้อง:
> ถ้าโฟลเดอร์มี 1 รูป ฉันต้องการให้อยู่ในบรรทัดใหม่ใน Excel
> หากโฟลเดอร์มีภาพมากกว่า ภาพแรกจะขึ้นบรรทัดใหม่และภาพที่สอง:
- ถัดจากตัวแรกในแถวเดียวกัน (ในหนึ่งคอลัมน์) คั่นด้วยอักขระ | (ตัวอย่าง: รูปภาพ 1.jpeg | รูปภาพ 2.jpeg)
- หรือมีชื่ออยู่ในคอลัมน์ (แม้จะไม่มี | อักขระ) (ตัวเลือกแรกจะดีกว่า แต่ตัวเลือกที่สองก็เพียงพอแล้วเช่นกัน)

นี่คือรูปภาพผลิตภัณฑ์ที่มีชื่อที่ฉันต้องการเพื่อนำเข้าไปยัง Woocommerce - ผ่านไฟล์ csv
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณมากสำหรับสิ่งนี้!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เฮ้! มันเร็วมากและขอบคุณ
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ