需要將excel單元格保存到文件中

-2

我在工作中遇到了一個問題，明天我需要整理出來，只有我沒有做VB，所以在VBA中很糟糕。我需要將單元格的內容保存到由另一個單元命名的xml文件中。我需要對錶單中的每一行執行此檢查！需要將excel單元格保存到文件中

Sub FormatRange() 

    Dim rng As Range 
    Dim row As Range 
    Dim cell As Range 

    Set rng = Range("A1:AG686") 

    For Each row In rng.Rows 


    Next row 

End Sub

這是儘可能Ive得到到目前爲止，即時通訊，詢問現在的問題，而不是更高版本：

對於每一行，我需要保存細胞AG到xml文件細胞C命名的同一行中。

我猜我可以使用streamwriter寫入文件？我認爲真正的問題是參考我需要的細胞，我想？任何幫助將是驚人的:)

來源

2013-08-06 JMG

你到目前爲止發佈的內容是一個完全不同的話題的隨機摘錄，與你在這裏提出的問題完全沒有任何關係。請有效地努力自己解決問題，然後如果遇到問題，您可以在此發佈**代碼並詢問具體問題。從另一個問題中獲取VBA代碼並不是實際解決問題的首要任務。 –

如果您使用的是2007+，則xlsx文件是Open XML，您可以將其解壓縮。在xl文件夾裏面有一個工作表子文件夾，它已經有了你要找的xml。 –

Sub FormatRange() 

Dim rng As Range 
Dim row As Range 
Dim cell As Range 

Set rng = Range("A2:AG686") 

' Declare a FileSystemObject. 
Dim fso As FileSystemObject 

' Create a FileSystemObject. 
Set fso = New FileSystemObject 
' Declare a TextStream. 
Dim stream As TextStream 

' Create a TextStream. 

For Each row In rng.Rows 
     Dim path As String 
     path = "C:\vba\" & row.Cells(1, 4) & ".xml" 
     ' MsgBox (path + row.Cells(1, 33)) 
     Set stream = fso.CreateTextFile(path, True) 
     stream.Write row.Cells(1, 33) 


Next row 
stream.Close 

End Sub

做到了！聚集在我的路上。感謝您的建議。

來源

2013-08-06 22:22:17 JMG