엑셀 내장 대화 상자

StackOverflow https://stackoverflow.com/questions/245342

  •  05-07-2019
  •  | 
  •  

문제

아무도 전화하는 방법을 아는 사람이 있습니까? import data 매크로 (VBA)에서 내장 대화 상자가 뛰어나나요?

난 노력 했어 Application.Dialogs.Item(...).Show 그러나 올바른 대화를 찾을 수는 없습니다. 도와주세요.

미리 감사드립니다.

도움이 되었습니까?

해결책

대화 상자 시스템을 사용하여 찾을 수있는 가장 가까운 것은 다음과 같습니다.

Application.Dialogs(xlDialogImportTextFile).Show

다음을 통해 명령 막대 버튼 (최소 2K3 및 2K7 모두)에 대한 참조를 얻을 수 있습니다.

Set button = Application.CommandBars.FindControl(ID:=6262)

그러나 Execute 버튼의 메소드가 실패합니다. 안타깝게도 짧은 대답은 불가능한 것 같습니다.

손으로 querytable 객체를 추가 할 수 있습니다. 최적의 경로는 아니지만 소스 데이터를 선택하기위한 간단한 인터페이스를 설계 할 수 있습니다.

다른 팁

객체 브라우저를 선택하고 xldialogimportTextFile을 검색하면 가능한 대화 상자 목록이 나타납니다.

편집 : 아마도이 라인의 무언가에 적합 할 것입니다.

'Allow user to select text file
sf = Application _
    .GetOpenFilename("Text Files (*.txt), *.txt")
If sf <> False Then
    'Open text file
    Workbooks.OpenText sf
End If

VBA 동등한 것이 있다고 생각하지 않습니다. 한 경우에는 데이터를 워크 시트로 반환하고 다른 경우에는 데이터가 메모리의 레코드 세트에 넣습니다.

그러나이 kludge는 대화 상자를 나타냅니다.

SendKeys "%ddd"
라이센스 : CC-BY-SA ~와 함께 속성
제휴하지 않습니다 StackOverflow
scroll top