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ファイルではできません。

画像（またはテキスト）を使って何をするつもりは明確ではありません。あなたが "VBAでExcelに画像を読み込む"のようなものをExcelのセルgoogleにインポートしたい場合は、十分なガイダンスがあります。同様に、テキストをワークブックにインポートしてワークブックに変換したい場合は、最初にワークブックにインポートしてから、その行を制御できない行にする可能性があります。関係するテキストの量にかかわらず、より直接的で、より制御可能な方法を推奨します。 Googleの "ExcelのセルにVBAでテキストファイルを挿入"

手順の最後にScreenUpdatingをTRUEに戻してください。