Excelautomation

13/09/2007 - 07:45 von Micha Srele | Report spam
Hallo NG

ich brech mir hier grad einen ab

ich möchte in Foxpro folgende Excelanweisung nachbilden

Selection.TextToColumns Destination:=Range("D1"), DataType:=xlFixedWidth,
FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True

soweit bin ich:
XLApp = GetObject('','excel.application')
XLApp.visible = .t.
XLApp.Workbooks.Open('c:\temp\xl.xls')
XLApp.Columns("D:D").Select

Das angeben von Daten/Text in Spalten/festen Breite will mir aber überhaupt
nicht gelingen.

Ich jemand von euch kann mir weiterhelfen

Gruß
Achim
 

Lesen sie die antworten

#1 Michael Bickel
13/09/2007 - 11:11 | Warnen spam
Hallo Achim,

weiß nicht, ob Dir das hilft (bin kein Excel-Experte, von daher habe
ich die Ausgangsposition nicht ganz verstanden :))

oExcel=Createobject("Excel.Application")
oExcel.Workbooks.add()
oSheet = oExcel.ActiveSheet
oSheet.Cells(2,1)="Meine Daten"

würde Daten/Text in ein Excel-Sheet schreiben

Viele Grüße
Michael



Micha Srele wrote:

Hallo NG

ich brech mir hier grad einen ab

ich möchte in Foxpro folgende Excelanweisung nachbilden

Selection.TextToColumns Destination:=Range("D1"),
DataType:=xlFixedWidth, FieldInfo:=Array(0, 1),
TrailingMinusNumbers:=True

soweit bin ich:
XLApp = GetObject('','excel.application')
XLApp.visible = .t.
XLApp.Workbooks.Open('c:\temp\xl.xls')
XLApp.Columns("D:D").Select

Das angeben von Daten/Text in Spalten/festen Breite will mir aber
überhaupt nicht gelingen.

Ich jemand von euch kann mir weiterhelfen

Gruß
Achim



Ähnliche fragen