Hallo zusammen,
vielleicht könnt ihr mir weiterhelfen,ich schreibe gerade ein kleines Tool, was aus einer Excel-Tabelle bestimmte Spalten (eigentlich) rauskopiert und sollte es dann in einer neue Excel-Datei schreiben.
Mein Problem liegt nun dabei das ich schon sehr viel probiert habe, um die Spalte zu kopieren.Ich hatte es schon hinbekommen das er eine bestimmte Zelle rauskopiert, doch dann habe ich eine Schleife gebildet um alles in ein Array eintragen zulassen und dabei meine Funktion zerstört... Ich kriege sie einfach nicht wieder hin:
Damit ihr euch Bild davon machen könnt, hier mein Code:
Dim xls As New Excel.Application
xls.Workbooks.Open(Filename:=(TextBox1.Text)).Activate()
Dim testdatei As String
testdatei = "C:\test.txt"
Dim test As New StreamWriter(testdatei)
xls.ActiveCell.Range("A1").Select()
Dim datei() As String
Dim i As Integer
Dim itest As Integer
For i = 0 To xls.ActiveCell.CurrentRegion.Rows.Count
itest = i + 2
-------------------------------------------------------------------------------------------
datei(i) = xls.Cells.Worksheet.Range("A4").Text <-- diese Zeile
macht Probleme
------------------------------------------------------------------------------------------
test.BaseStream.Seek(0, SeekOrigin.End)
test.WriteLine(datei(i))
Next
test.Close()
Dim test2 As New StreamReader(testdatei)
RichTextBox1.Text = test2.ReadToEnd
xls.Workbooks.Close()
test2.Close()
Ich danke euch schon mal im Vorraus....
vielleicht könnt ihr mir weiterhelfen,ich schreibe gerade ein kleines Tool, was aus einer Excel-Tabelle bestimmte Spalten (eigentlich) rauskopiert und sollte es dann in einer neue Excel-Datei schreiben.
Mein Problem liegt nun dabei das ich schon sehr viel probiert habe, um die Spalte zu kopieren.Ich hatte es schon hinbekommen das er eine bestimmte Zelle rauskopiert, doch dann habe ich eine Schleife gebildet um alles in ein Array eintragen zulassen und dabei meine Funktion zerstört... Ich kriege sie einfach nicht wieder hin:
Damit ihr euch Bild davon machen könnt, hier mein Code:
Dim xls As New Excel.Application
xls.Workbooks.Open(Filename:=(TextBox1.Text)).Activate()
Dim testdatei As String
testdatei = "C:\test.txt"
Dim test As New StreamWriter(testdatei)
xls.ActiveCell.Range("A1").Select()
Dim datei() As String
Dim i As Integer
Dim itest As Integer
For i = 0 To xls.ActiveCell.CurrentRegion.Rows.Count
itest = i + 2
-------------------------------------------------------------------------------------------
datei(i) = xls.Cells.Worksheet.Range("A4").Text <-- diese Zeile
macht Probleme
------------------------------------------------------------------------------------------
test.BaseStream.Seek(0, SeekOrigin.End)
test.WriteLine(datei(i))
Next
test.Close()
Dim test2 As New StreamReader(testdatei)
RichTextBox1.Text = test2.ReadToEnd
xls.Workbooks.Close()
test2.Close()
Ich danke euch schon mal im Vorraus....
