가져 오기 txt 파일하고 세포

Question

내가 줄 뒤에 실수를하고있는 중이 야 알고에 침입 : 는 If intChoice <> 0 Then
사람은 내가 그것을 수습하는 데 도움이 수 있습니까?

Private Sub CommandButton1_Click() 
    Dim intChoice As Integer 
    'Select the start folder 
    Application.FileDialog(msoFileDialogOpen).InitialFileName = "I:\Dunnings" 
    'make the file dialog visible to the user 
    intChoice = Application.FileDialog(msoFileDialogOpen).Show 
    'determine what choice the user made 

    If intChoice <> 0 Then 
     Workbooks.OpenText.Filename:= intChoice, Origin:=xlMSDOS, StartRow:=23, DataType:=xlFixedWidth, FieldInfo:= _ 
      Array(Array(0, 1), Array(6, 2), Array(23, 1), Array(30, 2), Array(63, 2), Array(68, 1), _ 
      Array(77, 4), Array(88, 4), Array(101, 1), Array(117, 1)), TrailingMinusNumbers:= _ 
      True 
     NewPath = Mid(ThisWorkbook.FullName, 1, _ 
     Len(ThisWorkbook.FullName) - Len(ThisWorkbook.Name)) & "\" & _ 
      "Dunnings - " & Format(Date, "dd-mm-yyyy") & ".xlsm" 
     ThisWorkbook.SaveAs (NewPath) 
    End If 
End Sub 

Answer 1

IntChoice은 정수입니다.
파일 이름 인수는 문자열을 필요로합니다. 이런 식으로 뭔가 :

With Application.FileDialog(msoFileDialogOpen) 
    .InitialFileName = "I:\Dunnings" 
    .Filters.Clear 
    .title = "Your Title" 
    If Not .Show Then 
     MsgBox "No file selected.": Exit Sub 
    End If 
    Workbooks.OpenText .SelectedItems(1) 'and the rest of your code. 
End With 

Answer 2

Private Sub CommandButton1_Click() 
    With Application.FileDialog(msoFileDialogOpen) 
     .InitialFileName = "I:\" 
     .Filters.Clear 
     .Title = "Your Title" 
     If Not .Show Then 
      MsgBox "No file selected.": Exit Sub 
     End If 
     Workbooks.OpenText .SelectedItems(1), Origin:=xlMSDOS, StartRow:=23, _ 
       DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(6, 2), _ 
       Array(23, 1), Array(30, 2), Array(63, 2), Array(68, 1), _ 
       Array(77, 4), Array(88, 4), Array(101, 1), Array(117, 1)), _ 
       TrailingMinusNumbers:=True 
     NewPath = Mid(ThisWorkbook.FullName, 1, _ 
      Len(ThisWorkbook.FullName) - Len(ThisWorkbook.Name)) & "\" & _ 
      "Dunnings - " & Format(Date, "dd-mm-yyyy") & ".xlsm" 
     ThisWorkbook.SaveAs (NewPath) 
    End With 
End Sub 

기본적으로 코드의 나머지 부분은 RecordMacro를 사용하여 기록 할 수 다음 VB 코드에 결과 코드를 복사합니다.