vielen dank
Joka
wo hast du das denn gefunden?
Wenn man da nachlesen kann, könnte man ggf.
noch mehr dazu sagen...
Der Code an sich sieht schon mal ganz gut aus ;-)
Mit deiner Fragestellung konnte ich zumindest
nicht richtig viel anfangen ;-)
Bye
Nike
Willst du beim Export nur die ein oder andere Zelle
gezielt exportieren, dann mußt du den Code entsprechend
anpassen...
Aber so als Orientierung ist er auf jeden Fall schon mal
ein richtiger Schritt...
Für XML mußt du dann ja noch das entsprechende Stylesheet
berücksichtigen, nach welcher Systematik die Werte abgelegt
werden sollen...
Da du ja Excel XP hast müßte es ja eigentlich auch das
Dateiformat XML beim Speichern unter Dialog geben.
Der Code war wohl eher für Excel Versionen vor XP gedacht.
Viel Spaß auf jeden Fall beim Tüfteln.
Bye
Nike
So sehen meine ersten zeilen vom vba-script aus :
und das Ergebnis wird ja eingetragen und dann möchte ich dieses Ergebnis mit einer variablen zwischen Speichern und am ende in die xml datei einbinden und speichern =) , vielleicht jetzte vertsanden? hoffentlich ;) *hoff*
Joka
mal so versuchen?
dim varVariable as variant
'ChDir "D:\Landsat7"'brauchst du nicht...
Workbooks.Open Filename:="D:\Landsat7\fertig.xls", UpdateLinks:=3
Range("A3").FormulaR1C1 = "=TODAY()"
Range("B3").FormulaR1C1 = _
"=SUMPRODUCT((products!R[-1]C[-1]:R[1997]C[-1]=TODAY())*(products!R[-1]C[3]:R[1997]C[3]=""x""))"
Range("C3").FormulaR1C1 = _
"=SUMPRODUCT((products!R[-1]C[-2]:R[1997]C[-2]=TODAY())*(products!R[-1]C[3]:R[1997]C[3]=""x""))"
varVariable = Range("C3").value
und dann später varVariable in den Code geben..
Sub TOXML()
...
Bye
Nike
MfG Joka
Bye
Nike
MfG Joka
Also erst mal
public varVariable as Variant
dann
sub Werte_In_Zellen()
'...
varVariable = Range("C3").value
'...
end sub
und dann
sub toXML()
Print #1, varVariable
end sub
Bye
Nike
das is doch der teil wo auch meine formel und so drin is richtig?
~begin~
Option Explicit
Public varVariable As Variant
Sub auto_open()
Range("C3").Select
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT((products!R[-1]C[-2]:R[1997]C[-2]=TODAY())*(products!R[-1]C[3]:R[1997]C[3]=""x""))"
varVariable = Range("C3").Value
End Sub
Sub toXML()
Print #1, varVariable
End Sub
so sieht es gerade bei mir aus!
Joka
das select kannst du Dir sparen, also:
Range("C3").FormulaR1C1 = _
"=SUMPRODUCT((products!R[-1]C[-2]:R[1997]C[-2]=TODAY())*(products!R[-1]C[3]:R[1997]C[3]=""x""))"
varVariable = Range("C3").Value
Bei dem sub toXML()
fehlt ja noch ein ganzer Haufen...
Da kannst du doch nicht einfach nur den Print #1 lassen,
das war von mir nur als Beispielschnipsel gedacht...
Da muß schon noch der Rest dazu und je nachdem was an Zellen
exportert werden soll auch noch ;-)
also, wenn du im gleichen Verzeichnis wie die excel Datei ne xml
Datei hast, die MyData.xml heißt, dann versuchs mal so:
sub test()
Range("C3").FormulaR1C1 = _
"=SUMPRODUCT((products!R[-1]C[-2]:R[1997]C[-2]=TODAY())*(products!R[-1]C[3]:R[1997]C[3]=""x""))"
TOXML(Range("C3").Value)
end sub
function TOXML(strZahl as string)
Dim Jstr As String
Dim strDateiname As String
Dim n As Integer
strDateiname = "MyData.xml"
Open ThisWorkbook.Path & "\" & _
strDateiname For Output Access Write As #1
Print #1, ""
Print #1, strZahl
Print #1, ""
Close #1
End function
Bye
Nike
mach hierdraus
Range("C3").FormulaR1C1
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT((products!R[-1]C[-2]:R[1997]C[-2]=TODAY())*(products!R[-1]C[3]:R[1997]C[3]=""x""))"
das hier:
Range("C3").FormulaR1C1 = _
"=SUMPRODUCT((products!R[-1]C[-2]:R[1997]C[-2]=TODAY())*(products!R[-1]C[3]:R[1997]C[3]=""x""))"
und hierdraus
strDateiname = "MyData.xml"
Open ThisWorkbook.Path & "D:\Landsat7\MyData.xml" & _
strDateiname For Output Access Write As #1
das hier
Open "D:\Landsat7\MyData.xml" For Output Access Write As #1
Du hast da einiges Doppelt gemoppelt...
Bye
Nike