Question

您好我正在尝试将图像和文本文件放在与单元格中匹配字符串相同的行上，例如070.txt＆amp; 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单元格谷歌中，例如“通过VBA将图片导入Excel”，您将找到大量指导。同样，如果您希望将文本导入工作簿，首先将其转换为工作簿，然后导入该工作簿可能会为您提供无法控制的行数。无论涉及的文本量如何，我都会推荐更直接，因此更可控的方法。谷歌“通过VBA将文本文件插入Excel单元格”。

请记住在程序结束时将ScreenUpdating设置为TRUE。

尝试使用VBE for Excel引入图像

1 个答案: