Vba Hücre verilerini ayrı ayrı kaydetme

[mesyen47]

Merhaba

Excel çalışma Sayfa1 de ki 1. sütun verilerini dosya ismi 5. sütun verilerini komut olacak şekilde her bir satır için ayrı ayrı kaydetmek istiyorum. Fakat ya bütün satırları tek bir dosyaya kaydediyor yada loop hatalı olduğu için bilgisayar donuyor yardımcı olur musunuz?


Sub ExportFile()

Dim objFSO, objFile
Dim fileName As String
Dim RootPath As String
Dim text_comm As String
Dim OutputString: OutputString = ""

fileName = Cells([2], [1])
text_comm = Cells([2], [5])
RootPath = "C:\Users\DELL\Desktop\PDM SOLID DOSYA YOLU\"

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile(RootPath + fileName + ".bat")

Do
OutputString = OutputString & Replace((text_comm), Chr(10), vbNewLine) & vbNewLine
objFile.Write (OutputString)
fileName = Cells([2] + 1, [1]) 'burada iterasyon yapması gerekli?
text_comm = Cells([2] + 1, [5]) 'burada iterasyon yapması gerekli?
Loop Until IsEmpty(text_comm)

Set objFile = Nothing
Set objFSO = Nothing

End Sub

 

[ÖmerBey]

Merhaba,
Deneyiniz...

Set objFSO = CreateObject("Scripting.FileSystemObject")

sat = 2
Do Until text_comm = ""
    Set objFile = objFSO.CreateTextFile(RootPath + fileName + ".bat")
    OutputString = Replace((text_comm), Chr(10), vbNewLine)
    objFile.Write (OutputString)
    
    sat = sat + 1
    fileName = Cells(sat, [1]) 'burada iterasyon yapması gerekli?
    text_comm = Cells(sat, [5]) 'burada iterasyon yapması gerekli?
Loop