Adressierung der Excel-Zellen mit Cells

Hallo zusammmen,

ich exportiere Daten von Navision über Automation nach Excel.

Bisher habe ich dafür normalterweise folgende Befehle bentutzt:

Sheet.Range('H' + i1).Value := FORMAT(DebSaldoFälligMW[7]);
Sheet.Range('H'+i1).Font.Bold := 1;
Sheet.Range('H'+i1).Font.Size := 11;
Sheet.Range('H'+i1).Interior.ColorIndex := 22;

Wenn man jetzt vorne eine neue Spalte einfügen wollte, mußte man fast den gesamten Report ändern . Aus diesem Grunde habe ich es jetzt mal mit Cells.item probiert. Das klappt prima, aber wie muss ich jetzt meine Formatierung addressieren ?

Sheet.Cells.Item(i,Column,"Nr."); //OK

Sheet.cells.Font.Bold := 1; // Dieser Befehl macht leider alles fett

VB Hilfe Beispiel
In diesem Beispiel wird die Schriftgröße der Zelle C5 in Sheet1 auf 14 Punkt festgelegt.

Worksheets("Sheet1").Cells(5, 3).Font.Size = 14

Wie muß obiger Befehl in Navision-Automation lauten?

Hallo,

das Excel Cell-Object kann nicht alles was das Range-Object kann
( unterschiedliche Properties/Methoden )

Ich löse das Problem so:

xlRange := xlWorksheet.Cells.Item( iLine, iCol ) ;
xlRange.Font.Bold := 1 ;
xlRange.NumberFormat( '#.##0,00' )
...

PS.: Ich schreibe keine Reports/Cu mehr, sondern exportiere/importiere
die Excel Daten über frei definierbare Export-Layouts (Data-Driven)

PS.: Ich schreibe keine Reports/Cu mehr, sondern exportiere/importiere die Excel Daten über frei definierbare Export-Layouts (Data-Driven)

Ist Data-Driven eine Zusatzsoftware? Könntest du mir bitte ein paar Angaben dazu machen wo ich mehr Informationen dazu finden kann?

Hallo,

diese Funktionalität habe ich selber programmiert.

In ähnlicher Weise wird so etwas beim GDPdU-Export bei MBS benutzt.
Hier eine kurze Funktionsbeschreibung.

1. Es gibt zwei Tabellen. ( Muster s. Anlage Beispiel Zahlungsbedingung)

Excel Layout Definitionen
- Excel Layout Spalten

2. Zwei CU jeweils für Export/Import

Für den Export/Import sind dann nur noch die Deklarationen und ein paar Zeilen Code notwendig.

Beispiel Code:

tView := '' ;
// recPaymentTerms.SETRANGE( Code, '10*' ) ;
// tView := recPaymentTerms.GETVIEW() ;
SetUpExportExcelDefinitions( 'TEST', tView ) ;

Aktuell gibt es eine Beta-Version, die bei uns schon Produktiv
eingesetzt wird.

Bei Interesse würde ich den Code auch veröfentlichen.

Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.

Hallo Ingo,

Danke für deine Erklärungen. Das, was ich hier sehe, gefällt mir sehr gut. Ich hätte auf jeden Fall grosses Interesse am Code

Ich denke, dass da wohl mehr Leute dran interessiert sind.
Wär schön, wenn Du das hier im Downloadbereich zur Verfügung stellen könntest.

Hallo Zusammen,

würde ich ja in den Download Bereich stellen,
aber der Zip-File 97KB ist zu groß !!??

Das finde ich seltsam. Ich leite das Problem mal an den Administrator weiter. Vielleicht gibt es da eine Begrenzung.

Der Downloadbereich hat kein Upload-Limit eingestellt, somit greift die Serverbeschränkung, welche allerdings eher von der Scriptlaufzeit begrenzt wird als vom Upload-Limit.
Das Dateiformat ist auch kein Problem, da ZIP-Dateien zugelassen sind.

Wie lautet denn die korrekte Fehlermeldung?

Alternativ kannst du die Datei auch hier als Antwort an dieses Thema hängen, allerdings nur bis 2 MB.
Ich würde dann versuchen, die Datei von hier aus in das Download-Center hochzuladen.

Hallo Timo,

Ich habe es heute nochmals vergeblich versucht.

Hier hänge ich erst mal die Fehlermeldung und meine
Upload-Beschreibung an.
In der nächsten hänge ich dann die Module und Beschreibungen an.

Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.

Hier jetzt die Module als Zip-File für den Download-Bereich.

Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.

Ich konnte die Datei problemlos hochladen.
Werde mich heute abend auf die Suche nach der Ursache machen.

Hier der Link zum Download: http://www.msdynamics.de/dload.php?acti ... file_id=70

Ist es auch möglich die Schriftart zu ändern?

Eine Einstellung zur Schriftart/Schriftgrösse ist bei der aktuellen Version nicht implementiert.
Möglich sind hier nur Fett/Kursiv/Unterstrichen.

[lape]

Danke für die schnelle Antwort.
Das Anpassen der Schriftgröße ist definitiv möglich. Ich habe es wie folgt gelöst:

Code:

Sheet.Range('A1:A5')Font.Size := '10';
Sheet.Range('B1:B5').Font.Size := '6';

EDIT:
Nach langem rumprobieren, der Vollständigkeit halberm, noch das Anpassen der Schriftart:

Code:

//Schriftart
Sheet.Range('A1:B5').Font.Name := 'Tahoma';

Zuletzt geändert von lape am 6. Februar 2009 16:24, insgesamt 2-mal geändert.

Werde dies in der nächsten Version als Neuerung mit aufnehmen.
Geplant ist auch die Hintergrundfarbe zu setzen.
Update in ca. ein bis zwei Wochen.