Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Excel
  VB.net: ActiveSheet.PageSetup und Fusszeile

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  VB.net: ActiveSheet.PageSetup und Fusszeile (6362 mal gelesen)
G. Dawg
Ehrenmitglied V.I.P. h.c.
FEM Simulant / Konstrukteur / SolidWorks



Sehen Sie sich das Profil von G. Dawg an!   Senden Sie eine Private Message an GDawg  Schreiben Sie einen Gästebucheintrag für GDawg

Beiträge: 2622
Registriert: 12.07.2004

SolidWorks_2o2o SP3.o
Win10_x64, Quadro_P2ooo.
VisualStudio_2o19_Pro.
FEM: Forge_NxT_HPC, ANSYS_WB.
3D-Printer: Ultimaker_2, Tinker_Gnome.

erstellt am: 19. Mrz. 2009 14:52    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Guten Tag!

Da ich nun nicht mehr weiter weiss, dachte ich mir, frage ich mal hier nach:

Ich habe ein Problem in einer VB.net Anwendung.
Hier ist mal ein kleiner Ausschnitt:

Code:

Excel.ActiveSheet.PageSetup.CenterFooter = "&P / &N - " & Excel.Application.UserName

Wenn ich die Anwendung laufen lasse, schreibt mir Excel (oder VB.net) eigentlich das da in die Tabelle:

Code:

' herausgefunden per Makrorecorder
.CenterFooter = "&Z / &F - fuerer_g"


Ist  : &Z und &F => "&[Pfad] / &[Datei]"
Soll : &P und &N => "&[Seite] / &[Seiten]"

Was zur Hölle soll das?!
Weiss jemand von einem solchen Problem?

Danke schon mal im Voraus

------------------

http://www.worldcommunitygrid.org

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

G. Dawg
Ehrenmitglied V.I.P. h.c.
FEM Simulant / Konstrukteur / SolidWorks



Sehen Sie sich das Profil von G. Dawg an!   Senden Sie eine Private Message an GDawg  Schreiben Sie einen Gästebucheintrag für GDawg

Beiträge: 2622
Registriert: 12.07.2004

erstellt am: 20. Mrz. 2009 09:04    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Wenn ich den Code von Excel direkt aus starte, dann gehts auch!
Aber wenn ich den Code von VB.net aus starte, kommt da irgendetwas rein ... keine Kontrolle darüber, was da passiert.

Kann das jemand bestätigen?

------------------

http://www.worldcommunitygrid.org

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

G. Dawg
Ehrenmitglied V.I.P. h.c.
FEM Simulant / Konstrukteur / SolidWorks



Sehen Sie sich das Profil von G. Dawg an!   Senden Sie eine Private Message an GDawg  Schreiben Sie einen Gästebucheintrag für GDawg

Beiträge: 2622
Registriert: 12.07.2004

SolidWorks_2o2o SP3.o
Win10_x64, Quadro_P2ooo.
VisualStudio_2o19_Pro.
FEM: Forge_NxT_HPC, ANSYS_WB.
3D-Printer: Ultimaker_2, Tinker_Gnome.

erstellt am: 23. Mrz. 2009 13:54    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Okay....!?   

Durch "try 'n error" konnte ich, und mit Hilfe von HenryV, die richtigen Definitionen herausfinden.
Der richtige Code sollte lauten:

Code:
.CenterFooter = " &S / &A " & " - " & Excel.Application.UserName

Keine Ahnung wieso, aber es funktioniert!

------------------

http://www.worldcommunitygrid.org

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

DanielFr.
Ehrenmitglied V.I.P. h.c.
Manager


Sehen Sie sich das Profil von DanielFr. an!   Senden Sie eine Private Message an DanielFr.  Schreiben Sie einen Gästebucheintrag für DanielFr.

Beiträge: 2506
Registriert: 10.08.2005

erstellt am: 07. Aug. 2009 10:46    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für G. Dawg 10 Unities + Antwort hilfreich

Hallo G. Dawg,

das kann ich nur bestätigen. Hatte gerade genau das selbe Problem:

Hier die Erkenntnisse:


    * &P => Dateipfad (aus Excel => aktuelle Seite)
    * &N => Dateiname (aus Excel => Max. Seitenanzahl)
    * &D => Datum (aus Excel => Datum)
    * &A => Max. Seitenanzahl (aus Excel => Blattname)
    * &S => aktuelle Seite (aus Excel => XXX)

    * &T => LEER (aus Excel => Uhrzeit)
    * &Z => LEER (aus Excel => Dateipfad)
    * &F => LEER (aus Excel => Dateiname)

------------------
MFG Daniel

Die KATJA ist halt doch nur ne zickige Französin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

G. Dawg
Ehrenmitglied V.I.P. h.c.
FEM Simulant / Konstrukteur / SolidWorks



Sehen Sie sich das Profil von G. Dawg an!   Senden Sie eine Private Message an GDawg  Schreiben Sie einen Gästebucheintrag für GDawg

Beiträge: 2622
Registriert: 12.07.2004

SolidWorks_2o2o SP3.o
Win10_x64, Quadro_P2ooo.
VisualStudio_2o19_Pro.
FEM: Forge_NxT_HPC, ANSYS_WB.
3D-Printer: Ultimaker_2, Tinker_Gnome.

erstellt am: 12. Feb. 2010 07:53    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Tach, Leute!

Hier ist noch eine kleine Ergänzung dazu:
http://msdn.microsoft.com/de-de/library/bb979367.aspx
In Kürze: Microsoft hat wieder einmal mehr mit den Sprachen herumgepfuscht!

Nachdem Excel belegt wurde, das da einfügen:

Code:

' Nun wird die Thread-Kultur auf US-Amerika umgestellt
Dim thisThread As System.Threading.Thread = System.Threading.Thread.CurrentThread
Dim originalCulture As System.Globalization.CultureInfo = thisThread.CurrentCulture
thisThread.CurrentCulture = New System.Globalization.CultureInfo("en-US")

Dann der Code der etwas im Excel macht kommt hier hin!

Code:
Excel.ActiveSheet.PageSetup.CenterFooter = "&P / &N - " & Excel.Application.UserName

Jawohl! Und jetzt funktioniert das auch so wie es sollte!!!!

Und wenn wir mit allem fertig sind, kommt das da wieder zum Zuge:

Code:

' Die originale Thread-Kultur wird wieder hergestellt
thisThread.CurrentCulture = originalCulture

Viel Spass damit!

PS: Danke, HenryV, für den Link/Hinweis.

------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

DanielFr.
Ehrenmitglied V.I.P. h.c.
Manager


Sehen Sie sich das Profil von DanielFr. an!   Senden Sie eine Private Message an DanielFr.  Schreiben Sie einen Gästebucheintrag für DanielFr.

Beiträge: 2506
Registriert: 10.08.2005

erstellt am: 12. Feb. 2010 08:41    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für G. Dawg 10 Unities + Antwort hilfreich

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz