尝试使用VBE为Excel中的图像

您好我试图带一个图像和一个文本文件在单元格中匹配的字符串在一个例子将是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

来源

2017-11-25 Paul-Walker

使用[.Pictures.Insert]（https://stackoverflow.com/questions/12936646/how-to-insert-a-picture-into-excel-at-a-specified-cell-position-with-vba ）将图像变成excel并根据您的要求定位。查看该帖子中的接受答案。 –

无论是TXT文件，也不JPG文件是Excel工作簿中的代码。 Excel实际上会打开TXT文件，将其转换为工作簿，但不能用JPG文件来完成。

目前尚不清楚您打算如何处理图片（或文字）。如果您希望将其导入到Excel单元格Google中，例如“通过VBA将图片导入Excel”，您会发现很多指导。同样，如果您想将文本导入工作簿，首先将其导入工作簿，然后导入该工作簿可能会导致无法控制的行数。不管涉及的文本的数量如何，我都会推荐更直接的，因此更可控的方法。 Google用于“通过VBA将文本文件插入Excel单元格”。

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

来源

2017-11-26 01:28:52 Variatus

尝试使用VBE为Excel中的图像

回答

相关问题