0
您好我试图带一个图像和一个文本文件在单元格中匹配的字符串在一个例子将是070.txt & 070.jpg。配合R17-8976-070。 我似乎能够将文本文件引入,但是当我为此运行代码时,图像以长字符串形式出现。有人能告诉我我做错了什么吗?下面 是我使用尝试使用VBE为Excel中的图像
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
使用[.Pictures.Insert](https://stackoverflow.com/questions/12936646/how-to-insert-a-picture-into-excel-at-a-specified-cell-position-with-vba )将图像变成excel并根据您的要求定位。查看该帖子中的接受答案。 –