엑셀 매크로

Question

나는 내가 일상적으로 별도의 엑셀 워크 시트에 텍스트 파일을 가져 오는 데 사용할 다음 매크로가 있습니다

Sub ImportManyTXTs() 
Dim strFile As String 
Dim ws As Worksheet 
strFile = Dir("C:\location\of\folder\with\textfiles\*.txt") 
Do While strFile <> vbNullString 

strFile2 = Replace(strFile, ".txt", "") 

Set ws = Sheets.Add 
With ws.QueryTables.Add(Connection:= _ 
    "TEXT;" & "C:\location\of\folder\with\textfiles\" & strFile, Destination:=Range("$A$1")) 
    .Name = strFile 
    .FieldNames = True 
    .RowNumbers = False 
    .FillAdjacentFormulas = False 
    .PreserveFormatting = True 
    .RefreshOnFileOpen = False 
    .RefreshStyle = xlInsertDeleteCells 
    .SavePassword = False 
    .SaveData = True 
    .AdjustColumnWidth = True 
    .RefreshPeriod = 0 
    .TextFilePromptOnRefresh = False 
    .TextFilePlatform = 437 
    .TextFileStartRow = 1 
    .TextFileParseType = xldelimited 
    .TextFileTextQualifier = xlTextQualifierDoubleQuote 
    .TextFileConsecutiveDelimiter = True 
    .TextFileTabDelimiter = False 
    .TextFileSemicolonDelimiter = False 
    .TextFileCommaDelimiter = False 
    .TextFileSpaceDelimiter = True 
    .TextFileColumnDataTypes = Array(1, 1, 1) 
    .TextFileFixedColumnWidths = Array(7, 9) 
    .TextFileTrailingMinusNumbers = True 
    .Refresh BackgroundQuery:=False 
End With 
ws.Name = strFile2 
strFile = Dir 
Loop 
End Sub 

을 ...하지만 난을 덮어 싶습니다 동일한 이름이 이미 사용 된 경우 기존 워크 시트. 다른 워크 시트에는 워크 시트의 셀에 대한 참조가 있으므로 덮어 쓰지 않아도됩니다. 따라서이 셀에 대한 참조를 깨지 않고이 작업을 수행 할 방법이 필요합니다. 누구든지 이것에 대한 좋은 해결책을 알고 있습니까? 당신을 가정

Answer 1

는 쿼리 테이블 외에 그 시트에 저장된 다른 정보가없는이 시도 (I 잘라 당신의 공간에 대한 문) :이 경우

Sub ImportManyTXTs() 
Dim strFile As String 
Dim Sht As Worksheet 
Dim ws As Worksheet 
strFile = Dir("C:\location\of\folder\with\textfiles\*.txt") 
Do While strFile <> vbNullString 

strFile2 = Replace(strFile, ".txt", "") 

For Each Sht in Worksheets 
    If Sht.Name = strFile2 Then 
     Sht.Cells.ClearContents 
     Set ws = Sht 
    End If 
Next Sht 
If ws Is Nothing Then 
    Set ws = Sheets.Add 
    ws.Name = strFile2 
End If 
ws.Activate 

With ActiveSheet.QueryTables.Add(Connection:= _ 
    'YourStuffHere 
End With 

strFile = Dir 
Loop 
End Sub 

시트의 내용을 것입니다 이미 존재하는 경우 교체 만하면 세포에 대한 참조가 변경되어서는 안됩니다.