.txt가 아닌 텍스트 파일과의 데이터 연결에 대해 Excel 파일 선택 확인을 우회합니다.

Question

다른 프로그램의 모델 출력을 처리하는 Excel 통합 문서가 있습니다. 해당 프로그램은 공백으로 구분된 일반 텍스트 출력 파일을 생성합니다.".plt"확대. 해당 데이터를 가져오기 위해 Excel에 데이터 연결이 있지만 원하는 것보다 더 많은 클릭이 필요합니다. 현재 작업 흐름은 다음과 같습니다.

1. 다른 모델을 실행합니다.
2. Excel에서 데이터->모두 새로 고침을 클릭합니다.
3. 열리는 파일 대화 상자에서 다음을 클릭하십시오."텍스트 파일(*.prn, *.txt, *.csv)"
4. 풀다운이 나타납니다. 다음을 클릭하세요."모든 파일(*.*)".
5. 목록에서 파일 이름 선택(파일 이름은 변경되지 않음 - 항상"출력.plt")
6. 선택하다"수입."

여기에서 위치, 텍스트와 열 등 데이터 연결에 대한 모든 설정을 기억합니다. 하지만 내 파일 이름은 절대 변경되지 않으므로 내 파일 이름을 기억했으면 좋겠으므로 한두 개만 있으면 됩니다. 5 대신 클릭수.

이 모든 단계를 거쳐 매크로를 기록하려고 했지만 VBA에 나타난 유일한 부분은 다음과 같습니다.ActiveWorkbook.RefreshAll

Answer 1

파일 이름을 묻는 옵션이 있습니다.

데이터/연결로 이동하여 연결을 선택한 후 속성을 클릭하세요.

새로 고침 제어 섹션 아래의 사용 탭에서 "새로 고침 시 파일 이름 확인" 상자를 선택 취소하세요.

Answer 2

Dim File_Path As String
File_path=" C:\Users\owner\John\Output.plt"
Open File_Path for Input as #1
row_num= 5
Do until EOF(1)
Line Input #1, Line_FromFile
Line_Items = Split(Line_FromFile, ",")
Range("C"&row_num).Value = Line_Items(2)
Range("B"&row_num).Value = Line_Items(1)
Range("A"&row_num).Value = Line_Items(0)
row_num = row_num + 1
Loop
Close #1