VBE for Excel로 이미지를 가져 오려고 시도합니다.

안녕하세요, 예를 들어 070.txt & 070.jpg 일 수있는 셀의 일치하는 문자열과 같은 행에 이미지와 텍스트 파일을 가져 오려고합니다. R17-8976-070과 일치. 텍스트 파일을 가져올 수있는 것 같지만 코드를 실행하면 이미지가 긴 문자 열로 표시됩니다. 누군가 내가 잘못하고있는 것을 말해 줄 수 있습니까? 아래 내가 TXT 파일이나 JPG 파일이 모두 Excel 통합 문서입니다VBE for 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 셀로 가져 오기를 원한다면 "VBA에서 Excel로 그림 가져 오기"와 같은 내용을 Google에 보내고 지침을 충분히 찾을 수 있습니다. 마찬가지로 텍스트를 통합 문서로 가져 와서 먼저 통합 문서로 변환 한 다음 가져 오면 제어 할 수없는 행이 생길 수 있습니다. 관련 텍스트의 양에 관계없이보다 직접적이고 더 제어 가능한 방법을 권장합니다. Google은 "텍스트 파일을 VBA에서 Excel 셀로 삽입"합니다.

프로 시저가 끝나면 ScreenUpdating을 다시 TRUE로 설정해야합니다.

출처

2017-11-26 01:28:52 Variatus

VBE for Excel로 이미지를 가져 오려고 시도합니다.

답변

관련 문제