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

วิธีแปลง URL ของรูปภาพเป็นรูปภาพจริงใน Excel

doc url ถึง img 1

หากคุณมีรายการที่อยู่ URL รูปภาพในคอลัมน์ A และตอนนี้คุณต้องการดาวน์โหลดรูปภาพที่เกี่ยวข้องจาก URL และแสดงลงในคอลัมน์ B ที่อยู่ติดกันตามภาพหน้าจอด้านซ้ายที่แสดง ใน Excel คุณจะดึงรูปภาพจริงจาก URL ของรูปภาพอย่างรวดเร็วและง่ายดายได้อย่างไร

แปลง URL ของรูปภาพเป็นรูปภาพจริงด้วยรหัส VBA

แปลง URL ของรูปภาพเป็นรูปภาพจริงด้วย Kutools for Excel


แปลง URL ของรูปภาพเป็นรูปภาพจริงด้วยรหัส VBA

รหัส VBA ต่อไปนี้สามารถช่วยให้คุณดึงภาพจริงจากที่อยู่ URL ของรูปภาพได้อย่างรวดเร็วโปรดดำเนินการดังนี้:

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

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

รหัส VBA: แปลง URL ของภาพเป็นภาพจริง:

Sub URLPictureInsert()
Dim Pshp As Shape
Dim xRg As Range
Dim xCol As Long
On Error Resume Next
Application.ScreenUpdating = False
Set Rng = ActiveSheet.Range("A2:A5")
For Each cell In Rng
filenam = cell
ActiveSheet.Pictures.Insert(filenam).Select
Set Pshp = Selection.ShapeRange.Item(1)
If Pshp Is Nothing Then GoTo lab
xCol = cell.Column + 1
Set xRg = Cells(cell.Row, xCol)
With Pshp
.LockAspectRatio = msoFalse
If .Width > xRg.Width Then .Width = xRg.Width * 2 / 3
If .Height > xRg.Height Then .Height = xRg.Height * 2 / 3
.Top = xRg.Top + (xRg.Height - .Height) / 2
.Left = xRg.Left + (xRg.Width - .Width) / 2
End With
lab:
Set Pshp = Nothing
Range("A2").Select
Next
Application.ScreenUpdating = True
End Sub

หมายเหตุ: 

  • 1. ในโค้ดด้านบน A2: A5 คือช่วงของเซลล์ที่มีที่อยู่ URL ที่คุณต้องการแยกรูปภาพคุณควรเปลี่ยนการอ้างอิงเซลล์ตามความต้องการของคุณ
  • 2. ด้วยรหัสนี้คุณไม่สามารถระบุขนาดของภาพที่แยกออกมาได้ตามที่คุณต้องการ
  • 3. โค้ดด้านบนสามารถดึงเฉพาะรูปภาพที่แสดงไว้ในเซลล์นอกเหนือจากคอลัมน์ URL ของคุณคุณไม่สามารถระบุเซลล์ที่จะส่งออกรูปภาพได้
  • 4. คุณควรมีความรู้พื้นฐานเกี่ยวกับรหัสหากอักขระใดพลาดหรือไม่ถูกต้องรหัสจะไม่สามารถดำเนินการได้สำเร็จ

3. จากนั้นกด F5 กุญแจสำคัญในการเรียกใช้รหัสนี้และรูปภาพที่เกี่ยวข้องทั้งหมดจะถูกดึงออกจาก URL ของรูปภาพไปยังคอลัมน์ที่อยู่ติดกันพร้อมกันและรูปภาพจะถูกวางไว้ที่กึ่งกลางของเซลล์เฉพาะของคุณดูภาพหน้าจอ:

doc url ถึง img 2


แปลง URL ของรูปภาพเป็นรูปภาพจริงด้วย Kutools for Excel

หากคุณไม่คุ้นเคยกับรหัส VBA หรือต้องการแก้ไขข้อ จำกัด ของรหัสข้างต้น Kutools สำหรับ Excel's แทรกเส้นทางฟอร์มรูปภาพ (URL) คุณลักษณะนี้สามารถช่วยให้คุณแทรกรูปภาพที่สอดคล้องกันได้อย่างรวดเร็วตามที่อยู่ URL หรือเส้นทางเฉพาะในคอมพิวเตอร์ของคุณ คลิกเพื่อดาวน์โหลด Kutools for Excel!

หมายเหตุ:ที่จะใช้สิ่งนี้ แทรกเส้นทางฟอร์มรูปภาพ (URL)ประการแรกคุณควรดาวน์โหลดไฟล์ Kutools สำหรับ Excelแล้วใช้คุณสมบัตินี้อย่างรวดเร็วและง่ายดาย

หลังจากการติดตั้ง Kutools สำหรับ Excelโปรดทำตามนี้:

1. คลิก Kutools > สิ่งที่ใส่เข้าไป > แทรกเส้นทางฟอร์มรูปภาพ (URL)ในกล่องโต้ตอบที่โผล่ออกมาโปรดตั้งค่าการดำเนินการต่อไปนี้ดูภาพหน้าจอ:

doc url ถึง img 3 doc url ถึง img 4

2. จากนั้นคลิก Ok และรูปภาพจะถูกดึงออกมาจาก URL ดูภาพหน้าจอ:

doc url ถึง img 1

คลิกเพื่อดาวน์โหลดและทดลองใช้ Kutools for Excel ฟรีทันที!


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

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

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

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

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มผลผลิตของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (61)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คุณสามารถเปลี่ยน "เมื่อเกิดข้อผิดพลาดต่อ" เป็นสิ่งที่จะรอจนกว่า Google Chrome มีเวลาเปิดรูปภาพได้หรือไม่ ฉันลองใช้รหัสนี้แล้วและใช้งานได้ แต่รูปภาพบางรูปถูกวางหลายแถวด้านล่างในตำแหน่งที่ควร ดังนั้นฉันจึงถือว่าคำสั่ง "มีข้อผิดพลาด" ไม่ได้ให้เวลาเพียงพอ หากคุณคิดว่าอาจเป็นอย่างอื่นหรือมีข้อเสนอแนะอื่นใด ฉันยินดีรับฟัง ขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
นี่เป็นความช่วยเหลือที่ดีมาก ty มาก
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันลองใช้สูตรแล้ว แต่ดูเหมือนจะไม่ได้ผล จะต้องทำอะไรกับเวอร์ชันของ Excel หรือไม่ (ฉันมีเวอร์ชันล่าสุด) ฉันขอขอบคุณสำหรับคำตอบของคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คุณได้รับปัญหาอะไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ข้อผิดพลาดรันไทม์ '1004': ไม่สามารถรับคุณสมบัติการแทรกของคลาส Pictures
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สิ่งนี้ใช้ไม่ได้สำหรับฉันเช่นกัน ฉันมี Excel 2013 และฉันต้องการโค้ดตรงไปตรงมาที่จะแทรกรูปภาพนอกเหนือจาก URL ที่อยู่ในคอลัมน์ในสเปรดชีตของฉัน ทุกวิธีแก้ปัญหาเดียวที่ฉันได้ลองซึ่งมีให้ผ่าน Google Search หรือผ่าน YouTube ได้แสดงข้อผิดพลาดค่าแทรกรูปภาพ ผมทำอะไรผิดหรือเปล่า??? URL ไม่ควรเป็นไฮเปอร์ลิงก์หรือไม่ พวกเขาควรจะเป็นไฮเปอร์ลิงก์หรือไม่? ฉันควรระบุช่วงของคอลัมน์ที่เอาต์พุตไปถึงหรือไม่ ฉันไม่พบชุดคำสั่งง่ายๆ ที่จะปฏิบัติตามได้ทุกที่ โปรดช่วยด้วย เมื่อฉันใช้รหัสของคุณ ฉันจะได้รับคลาส "ไม่สามารถรับคุณสมบัติการแทรกของรูปภาพ":
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันมีปัญหาเดียวกัน และคุณต้องตรวจสอบ URL ของคุณ หากเป็น HTTPS แสดงว่าเป็นการเชื่อมต่อที่ปลอดภัยและ VBA จะไม่สามารถดึงข้อมูลได้ หากเป็น HTTP ปกติก็ไม่น่าจะมีปัญหา
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอขอบคุณ. มันใช้งานได้สำหรับฉัน ฉันจะเปลี่ยน/แก้ไขไวยากรณ์เพื่อแสดง URL รูปภาพที่มีการป้องกันด้วยรหัสผ่านได้อย่างไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีทุกคน ฉันได้แก้ไขรหัสเหล่านี้เพื่อให้ใช้ได้กับช่วงที่เลือกแทนที่จะป้อนช่วงเฉพาะ อย่างไรก็ตาม ใครช่วยแนะนำวิธีแก้ไขรหัสเหล่านี้ให้รูปภาพอยู่ตรงกลางเซลล์ได้ ขณะนี้ภาพแสดงอยู่ที่มุมซ้ายบน

URL ย่อยรูปภาพแทรก ()

Dim Pshp เป็นรูปร่าง

Dim rCell เป็นช่วง

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

Application.ScreenUpdating = เท็จ

สำหรับแต่ละเซลล์ในการเลือก

filenam = rCell ActiveSheet.Pictures.Insert(ชื่อไฟล์) เลือก

ตั้งค่า Pshp = Selection.ShapeRange.Item(1)

ด้วย Pshp

.LockAspectRatio = msoTrue

.ความกว้าง = 100

.ความสูง = 100

.ตัด

จบด้วย

เซลล์(rCell.Row, rCell.Column + 1).PasteSpecial

ต่อไป Application.ScreenUpdating = True

ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
อัศจรรย์! มันเยี่ยมมาก! ฉันมีไฮเปอร์ลิงก์ 350 แถวและใช้เวลาเพียง 5 นาทีในการดึงภาพทั้งหมด!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ทุกคนสามารถแนบลิงก์ของแผ่นงาน Excel ที่เปิดใช้งานโค้ดมาโครเพื่อที่ฉันจะได้ดาวน์โหลดและทดลองได้ ฉันเพิ่งเริ่มใช้ VB และต้องทำสิ่งนี้มาก
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สำหรับฉัน ทั้งหมดที่แสดงในแต่ละเซลล์คือชื่อของวิธีการ พวกเขาทั้งหมดพูดว่า "Sub URLPictureInsert()"
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ทำงานได้อย่างสมบูรณ์ แต่ใครก็ได้ช่วยฉันเพิ่มบางอย่างเพื่อตรวจสอบว่ารูปภาพมีอยู่หรือไม่ และหากไม่มี ให้โพสต์ข้อความในเซลล์เช่น "รูปภาพไม่พร้อมใช้งาน"
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ใน Excel 2010 ฉันต้องเพิ่มการประกาศเหล่านี้

Dim Rng เป็นช่วง
เซลล์หรี่เป็นช่วง
หรี่ชื่อไฟล์เป็นสตริง
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เพื่อให้สิ่งนี้ทำงานใน Excel 2010 ฉันต้องเพิ่มการประกาศเหล่านี้


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


URL ย่อยรูปภาพแทรก ()
Dim Pshp เป็นรูปร่าง
เกี่ยวกับข้อผิดพลาดต่อไป
Application.ScreenUpdating = เท็จ
ตั้งค่า Rng = ActiveSheet.Range("A1:E1")
สำหรับแต่ละเซลล์ใน Rng
filenam = เซลล์
ActiveSheet.Pictures.Insert(ชื่อไฟล์) เลือก
ตั้งค่า Pshp = Selection.ShapeRange.Item(1)
ด้วย Pshp
.LockAspectRatio = msoTrue
.ความกว้าง = 100
.ความสูง = 100
.ตัด
จบด้วย
เซลล์(cell.Row + 1, cell.Column).PasteSpecial
ต่อไป
Application.ScreenUpdating = จริง
ย่อยสิ้นสุด

โปรดลอง หวังว่ามันจะช่วยคุณได้ ขอขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี,
มันชอบที่จะทำให้มันใช้งานได้ แต่เมื่อฉันคัดลอกสิ่งนี้ใน VBA & คลิกที่เรียกใช้ ฉันจะได้รับข้อความนี้เท่านั้น:
URL ย่อยรูปภาพแทรก ()
คุณช่วยฉันขอภาพขนาดย่อของรูปภาพได้ไหม
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี,
เมื่อใช้รหัส คุณสามารถเปลี่ยนขนาดความกว้างและความสูงของรูปภาพให้ตรงกับเซลล์ของคุณได้
ขอขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ใช้งานได้ดีสำหรับการดึงรูปภาพ แต่ใส่แบบสุ่มและไม่ได้อยู่ในเซลล์ที่คาดไว้... Excel 2016 จาก Office365...
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีครับ DKcrm
ขอบคุณสำหรับความคิดเห็นของคุณ รหัสในบทความนี้ได้รับการอัปเดต โปรดลองใช้รหัสใหม่ หวังว่ามันจะช่วยคุณได้!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณสำหรับการโพสต์ของคุณ ฉันจะให้รูปภาพอยู่ตรงกลางเซลล์ได้อย่างไร ด้วยรหัสปัจจุบัน รูปภาพจะแสดงที่มุมบนซ้าย
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีครับคุณคาน
รหัส VBA ต่อไปนี้สามารถช่วยคุณแยกรูปภาพและวางไว้ที่กึ่งกลางของเซลล์ โปรดลองใช้

URL ย่อยรูปภาพแทรก ()
Dim Pshp เป็นรูปร่าง
Dim xRg เป็นช่วง
Dim xCol นานเท่านาน
เกี่ยวกับข้อผิดพลาดต่อไป
Application.ScreenUpdating = เท็จ
ตั้งค่า Rng = ActiveSheet.Range("A2:A6")
สำหรับแต่ละเซลล์ใน Rng
filenam = เซลล์
ActiveSheet.Pictures.Insert(ชื่อไฟล์) เลือก
ตั้งค่า Pshp = Selection.ShapeRange.Item(1)
ถ้า Pshp ไม่มีอะไร ให้ไปที่แล็บ
xCol = เซลล์ คอลัมน์ + 1
ตั้งค่า xRg = เซลล์ (cell.Row, xCol)
ด้วย Pshp
.LockAspectRatio = msoFalse
ถ้า .Width > xRg.Width แล้ว .Width = xRg.Width * 2 / 3
ถ้า .Height > xRg.Height แล้ว .Height = xRg.Height * 2 / 3
.Top = xRg.Top + (xRg.Height - .Height) / 2
.Left = xRg.Left + (xRg.Width - .Width) / 2
จบด้วย
ห้องปฏิบัติการ:
ตั้งค่า Pshp = ไม่มีอะไร
ช่วง("A2") เลือก
ต่อไป
Application.ScreenUpdating = จริง
ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ใช้งานไม่ได้ คุณสามารถแสดงรหัสที่กรอกสำหรับคำขอนี้ได้หรือไม่
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี,
ฉันต้องการดาวน์โหลดรูปภาพจาก URL (คอลัมน์ A) ในโฟลเดอร์เฉพาะและเปลี่ยนชื่อรูปภาพเดียวกันด้วยรหัส/หมายเลขซึ่งมีอยู่ในคอลัมน์ B
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีค่ะ คุณวิพิน
ในการบันทึกรูปภาพของ URL ลงในโฟลเดอร์และเปลี่ยนชื่อด้วยชื่อใหม่ในคอลัมน์ B อาจเป็นรหัส VBA ต่อไปนี้สามารถช่วยคุณได้:

หมายเหตุ: คอลัมน์ A มีที่อยู่ URL และคอลัมน์ B มีชื่อใหม่

#ถ้า VBA7 แล้ว
ประกาศฟังก์ชัน PtrSafe แบบส่วนตัว URLDownloadToFile Lib "urlmon" นามแฝง "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) ตราบเท่าที่
#อื่น
ฟังก์ชันประกาศส่วนตัว URLDownloadToFile Lib "urlmon" นามแฝง "URLDownloadToFileA" (ByVal pCaller ตราบเท่าที่, ByVal szURL เป็นสตริง, ByVal szFileName เป็นสตริง, ByVal dwReserved As Long, ByVal lpfnCB ตราบเท่าที่)
#จบถ้า
URL ย่อยรูปภาพแทรก ()
หรี่ฉันเป็นจำนวนเต็ม
Dim xStr เป็นสตริง
Dim xFd เป็น FileDialog
Dim xArr, xFdItem เป็นตัวแปร
Application.ScreenUpdating = เท็จ
ตั้งค่า xFd = Application.FileDialog(msoFileDialogFolderPicker)
ถ้า xFd.Show = -1 แล้ว
xFdItem = xFd.SelectedItems.Item(1)
xArr = ช่วง ("A2:B5") .Value
สำหรับฉัน = 1 ถึง UBound(xArr)
ถ้า xArr(I, 1) <> "" แล้ว
xStr = กลาง(xArr(I, 1), InStrRev(xArr(I, 1), "."), Len(xArr(I, 1)))
URLDownloadToFile 0, xArr(I, 1), xFdItem & "\" & xArr(I, 2) & I & xStr, 0, 0
End If
ต่อไป
End If
Application.ScreenUpdating = จริง
ย่อยสิ้นสุด

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

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

#ถ้า VBA7 แล้ว
ประกาศฟังก์ชัน PtrSafe แบบส่วนตัว URLDownloadToFile Lib "urlmon" นามแฝง "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) ตราบเท่าที่
#อื่น
ฟังก์ชันประกาศส่วนตัว URLDownloadToFile Lib "urlmon" นามแฝง "URLDownloadToFileA" (ByVal pCaller ตราบเท่าที่, ByVal szURL เป็นสตริง, ByVal szFileName เป็นสตริง, ByVal dwReserved As Long, ByVal lpfnCB ตราบเท่าที่)
#จบถ้า
URL ย่อยรูปภาพแทรก ()
หรี่ฉันเป็นจำนวนเต็ม
Dim xStr เป็นสตริง
Dim xFd เป็น FileDialog
Dim xArr, xFdItem เป็นตัวแปร
Application.ScreenUpdating = เท็จ
ตั้งค่า xFd = Application.FileDialog(msoFileDialogFolderPicker)
ถ้า xFd.Show = -1 แล้ว
xFdItem = xFd.SelectedItems.Item(1)
xArr = ช่วง ("A2:B5") .Value
สำหรับฉัน = 1 ถึง UBound(xArr)
ถ้า xArr(I, 1) <> "" แล้ว
xStr = กลาง(xArr(I, 1), InStrRev(xArr(I, 1), "."), Len(xArr(I, 1)))
URLDownloadToFile 0, xArr(I, 1), xFdItem & "\" & xArr(I, 2) & xStr, 0, 0
End If
ต่อไป
End If
Application.ScreenUpdating = จริง
ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
พระเจ้าช่วย!! คุณเพิ่งให้ปาฏิหาริย์ มันทำงานเหมือนมีเสน่ห์ ขอบคุณมาก.
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
range ถูกตั้งค่า filenam = url และเปลี่ยนแปลงทุกครั้งที่ผ่าน Pshp ไม่มีอะไรเกิดขึ้นเสมอ ไอเดียต่างๆ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันใช้โปรเซสเซอร์ Intel I5, windows 7 professional 64 บิต, Office 2016 64 บิต ฉันคิดว่าปัญหาคือการตั้งค่าใน Excel ความช่วยเหลือใด ๆ ที่จะได้รับการชื่นชมอย่างมาก.
มีการตั้งค่าช่วง, filenam = url และเปลี่ยนแปลงทุกครั้งที่ผ่าน, Pshp ไม่มีอะไรอยู่เสมอ, URL ได้รับการยืนยันแล้ว, แนวคิดใด ๆ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี skyyang ก่อนอื่นสำหรับการโพสต์ข้อมูลดังกล่าว ฉันมีคำถาม คุณช่วยฉันหน่อยได้ไหม การใช้รหัสของคุณนี้ ฉันต้องการแยกรูปภาพเพียงรูปเดียวและต้องการวางไว้ในเซลล์เฉพาะ เป็นไปได้ไหม??
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีโชซิบ
หากต้องการใส่รูปภาพลงในเซลล์อื่นๆ ตามที่คุณต้องการ โปรดใช้โค้ด VBA ต่อไปนี้:

URL ย่อยPictureInsert1()
'Updateby Extendoffice 20180608
Dim Pshp เป็นรูปร่าง
Dim xRg เป็นช่วง
Dim xCol นานเท่านาน
เกี่ยวกับข้อผิดพลาดต่อไป
Set Rng = Application.InputBox("กรุณาเลือกเซลล์ url:", "KuTools for excel", Selection.Address, , , , , 8)
ถ้า Rng ไม่มีอะไร ให้ออกจาก Sub
Set xRg = Application.InputBox("โปรดเลือกเซลล์ที่จะใส่รูปภาพ:", "KuTools for excel", , , , , , , 8)
ถ้า xRg ไม่มีอะไร ให้ออกจาก Sub
Application.ScreenUpdating = เท็จ
สำหรับฉัน = 1 ถึง Rng.Count
filenam = Rng (I)
ActiveSheet.Pictures.Insert(ชื่อไฟล์) เลือก
ตั้งค่า Pshp = Selection.ShapeRange.Item(1)
ถ้า Pshp ไม่มีอะไร ให้ไปที่แล็บ
xCol = เซลล์ คอลัมน์ + 1
ตั้งค่า xRg = xRg.Offset(I - 1, 0)
ด้วย Pshp
.LockAspectRatio = msoFalse
.ความกว้าง = 80
.ความสูง = 80
.Top = xRg.Top + (xRg.Height - .Height) / 2
.Left = xRg.Left + (xRg.Width - .Width) / 2
จบด้วย
ห้องปฏิบัติการ:
ตั้งค่า Pshp = ไม่มีอะไร
ช่วง("A2") เลือก
ต่อไป
Application.ScreenUpdating = จริง
ย่อยสิ้นสุด

โปรดลอง หวังว่าจะช่วยคุณได้!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีทุกคน Macro นี้ดีมาก อย่างไรก็ตาม มันไม่ได้เพิ่มรูปภาพลงในไฟล์จริงๆ แต่เป็นลิงก์ที่สร้างรูปภาพทุกครั้งที่ฉันเปิดไฟล์ ดังนั้นฉันจึงไม่สามารถบีบอัดรูปภาพได้เนื่องจากไม่ได้อยู่ภายในไฟล์จริงๆ คุณช่วยฉันบันทึกรูปภาพในไฟล์จริง ๆ ได้ไหม
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี! ฉันมีคำถามเดียวกัน
มีวิธีบันทึกภาพใน excel อย่างมีประสิทธิภาพหรือไม่? (และไม่ได้เชื่อมโยงภายนอก)
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
โหลดเพิ่มเติม
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ