Thema Datum  Von Nutzer Rating
Antwort
08.08.2005 22:26:31 MartinP2
NotSolved
09.08.2005 09:20:36 Rasta
NotSolved
Rot Aw:Aw:neue Datei in neuem Fenster
 09.08.2005 13:56:03 MartinP2
NotSolved

Ansicht des Beitrags:
Von:
MartinP2		 Datum:
09.08.2005 13:56:03		 Views:
1173		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Aw:neue Datei in neuem Fenster
Hey Rasta,

ich weiß nicht was du da verstanden hast, ich glaube aber , daß es falsch verstanden wurde. Es ging mir nicht ums speichern, sondern darum eine bestimmte Datei in neuer Instanz zu öffnen und dort dann Werte einzutragen.
Dafür habe ich jetzt folgenden Code:

Dim appXL As Excel.Application
Dim wkb As Workbook
Dim Pfad As String

Set appXL = New Excel.Application
Pfad = Application.ActiveWorkbook.Path & "\tpr.xls"
Set wkb = appXL.Workbooks.Open(Filename:=Pfad)
wkb.Worksheets("TE").Range("D12").Value = TextBox4.Text

'usw.
appXL.Visible = True

Somit habe ich also die Lösung des Problems.

Ich danke aber dir und em anderen, die sich damit auseinandergesetzt haben!

Liebe Grüße,

Martin

Rasta schrieb am 09.08.2005 09:20:36:

Hallo Martin,

hab ich das jetzt falsch verstanden? oder warum liest du nicht den pfad aus dem "alten" workbook aus, bevor du das neue instanzierst?

dann hast du den pfad unter dem du das neue workbook speichern kannst.

wars das?

viele grüße

rasta


MartinP2 schrieb am 08.08.2005 22:26:31:

Hallo,

habe ein Problem:

1.Ich möchte ganz gerne eine neue Excel-Sitzung aus einem Makro heraus starten.

geht so:
Dim appXL As Excel.Application
Dim wkb As Workbook
Set appXL = New Excel.Application
Set wkb = appXL.Workbooks.Add(1)
appXL.Visible = True

2. Ich möchte eine Datei öffnen aus dem gleichen Ordner wie Ausgangsdatei mit dem Namen tpr.xls öffnen.

geht so:
Dim Pfad$
Pfad = ActiveWorkbook.Path & "\tpr.xls"
Workbooks.Open Filename:=Pfad

Das Problem:
Die Kombination daraus! Wichtig ist, daß eine neue Sitzung angefangen wird, in der die Datei aus dem gleichen Ordner/Verzeichnis wie die Ursprungsdatei mit dem Namen tpr.xls geöffnet wird.

Bei der Kombi haperts bei mir. Anschliessend sollen Textfelder ausgelesen und in die Datei geschrieben werden.

etwa so:
Sheets("TE").Range("D12") = TextBox4

Kann mir jemand helfen? Habe das Problem heute mittag bei herber.de schon angesprochen, was mir auch schon viel geholfen hat, allerdings hat sich das bei diesem Problem verloren. Es wäre also echt super nett wenn hier jemand noch Rat weiß.

Liebe Grüße,

T. Martin

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
08.08.2005 22:26:31 MartinP2
NotSolved
09.08.2005 09:20:36 Rasta
NotSolved
Rot Aw:Aw:neue Datei in neuem Fenster
 09.08.2005 13:56:03 MartinP2
NotSolved