단어 내에서 복사하여 그림과 같이 붙여 넣기라는 이름의 Excel 범위

Question

단어에 대한 명령 단추가 코딩되어 있습니다. 단어 문서의 단추는 Excel 통합 문서의 파일 이름을 지정하는 대화 상자를 호출 한 다음 명명 된 범위를 복사하여 그림으로 단어에 붙여 넣습니다. 복사 및 붙여 넣기 부분은 매우 간단하지만 파일 이름 대화 상자가 나타나지 않습니다. 시행 착오를 많이 꽤 많은 내가 찾은 모든 예제는하지 (가능한 한 그것을 청소하려고 지금까지 대화

내 코드에서, 코드 내에서 엑셀 파일 이름을 지정

있었다) Excel의 Application.GetOpenFilename에

워드 VBA에서

Sub CRA_copy() 

Dim oXL As Excel.Application 
Dim oWB As Excel.Workbook 
Dim oSheet As Excel.Worksheet 
Dim oRng As Excel.Range 
Dim ExcelWasNotRunning As Boolean 
Dim WorkbookToWorkOn As String 
Dim dlgOpen As FileDialog 
Dim crabook As String 

oName = ActiveDocument.Name 

'If Excel is running, get a handle on it; otherwise start a new instance of Excel 
On Error Resume Next 
Set oXL = GetObject(, "Excel.Application") 

If Err Then 
    ExcelWasNotRunning = True 
    Set oXL = New Excel.Application 
End If 

On Error GoTo Err_Handler 

'Open the workbook  
crabook = Application.GetOpenFilename(_ 
     filefilter:="Excel Files (*.xl*), *.xl*", MultiSelect:=False) 

'Process each of the spreadsheets in the workbook 
oXL.ActiveWorkbook.Range("CRA").Copy 

If ExcelWasNotRunning Then 
    oXL.Quit 
End If 

oName.Activate 

Selection.EndKey Unit:=wdStory 
Document.InsertBreak Type:=wdPageBreak 

Selection.Paste 
'Make sure you release object references. 
Set oRng = Nothing 
Set oSheet = Nothing 
Set oWB = Nothing 
Set oXL = Nothing 

'quit 
Exit Sub 

Err_Handler: 
    MsgBox WorkbookToWorkOn & " caused a problem. " & Err.Description, vbCritical, _ 
    "Error: " & Err.Number 
If ExcelWasNotRunning Then 
    oXL.Quit 
End If 

End Sub 

Answer 1

것과 동일 Application.FileDialog입니다.

Set dlgOpen = Application.FileDialog(msoFileDialogFilePicker) 

' modify the FileDialog settings 
With dlgOpen 
    'Add a filter that includes .xl* (.xls, .xlsx, .xlsm) 
    .Filters.Add "Excel Files (*.xl*)", "*.xl*" 
    .AllowMultiSelect = False 
    .Show 

    crabook = .SelectedItems(1) 
End With