txt dosyasında güncelleme

[tamer42]

Merhabalar;

Kapalı olan bir .txt dosyasının içeriğini aşağıdaki kodla excel sheet' ine alıyorum.

Excel üzerinde herhangi bir satırda yaptığım değişikliğin; bu datanın alındığı .txt dosyasında güncellenmesi yapılabirmi?

İlginize şimdiden teşekkürler...

Set s1 = Worksheets("ENVANTER")

s1.Select
say1 = WorksheetFunction.CountA(Range("R:R")) + 5
Columns("N:N").ColumnWidth = 6
dosya = Worksheets("ENVANTER IZLEME").Range("C7").Value


Sheets(2).Select

Range("A1:M300").Select
Selection.Clear
Sheets(2).Name = "text"
Set s2 = Worksheets("text")
s2.Range("A1").Select


With ActiveSheet.QueryTables.Add(Connection:="TEXT;D:\" & dosya & ".txt" _
, Destination:=Range("A1"))
.Name = dosya
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 2, 1, 1, 1, 2, 1)
.Refresh BackgroundQuery:=False
End With