尝试使用VBE for Excel引入图像

Question

您好，我正在尝试将图像和文本文件放在与单元格中的匹配字符串相同的行中，例如070.txt & 070.jpg。与R17-8976-070匹配。我似乎能够引入文本文件，但是当我为此运行代码时，图像是一个很长的字符串。有人能告诉我我哪里做错了吗？下面是我使用的代码

   Sub InsertStuff2()
   Dim myText As String
   Dim myImage  As Picture
   Dim fileLoc As String
   Columns("a:h").ColumnWidth = 13 ' adjust column width
   Rows("1:8").RowHeight = 55 'adjust row height

   Application.ScreenUpdating = False

   fileLoc = "Macintosh HD:Users:paul-walker:Documents:VBA_Scripts:"
   myText = Range("A1").Value & ".txt"   '<<-- Text file name
   myImage = Range("A1").Value & ".jpg"  '<<-- Image file name

   Set myTextFile = Workbooks.Open(fileLoc & myText)
   myTextFile.Sheets(1).Range("A1").CurrentRegion.Copy _
       ThisWorkbook.Sheets(1).Range("D1")
   myTextFile.Close (False)

   Set myImageFile = Workbooks.Open(fileLoc & myImage)
   myImageFile.Sheets(1).Range("A1").CurrentRegion.Copy _
       ThisWorkbook.Sheets(1).Range("E1")
   myImageFile.Close (False)
   Range("D1").WrapText = True
   End Sub        

Answer 1

TXT文件和JPG文件都不是Excel工作簿。Excel实际上会打开TXT文件，将其转换为进程中的工作簿，但它不能使用JPG文件执行此操作。

不清楚您打算如何处理图片(或文本)。如果你想把它导入到Excel单元格中，谷歌搜索"Import a picture to Excel by VBA“，你会发现有很多指导。同样，如果您希望将文本导入到工作簿中，请先将其转换为工作簿，然后再将其导入，这可能会给您带来无法控制的行数。不管涉及多少文本，我都会推荐一种更直接、更可控的方法。Google搜索"Insert text file into Excel cell by VBA“。

记住在过程结束时将ScreenUpdating设置回TRUE。