title image


Smiley Re: VB6 Excel Datei bearbeiten
1. setze verweis auf microsoft excel ? library



2. werde aus folgendem code schlau:

Mischa richter





Dim ObjDatenArbeitsmappe As New Excel.Application

Set ObjDatenArbeitsmappe = Nothing





On Error Resume Next

Err.Number = 0

Set ObjDatenArbeitsmappe = GetObject(, "Excel.Application")



Set ObjDatenArbeitsmappe = CreateObject("Excel.Application")

If Err.Number 0 Then

'bla bla

End If









ObjDatenArbeitsmappe.Visible = True

ObjDatenArbeitsmappe.DisplayAlerts = False

ObjDatenArbeitsmappe.ScreenUpdating = True

ObjDatenArbeitsmappe.WindowState = xlMinimized





'Datei aufrufen

Dim objBlatt As New Excel.Workbook

Set objBlatt = Nothing





'trennen nach Privatrechnung und Firmenrechnung:

If NurAngebot = False Then

'Rechnung an:

If dlg_main.chk_KundeIstFirma.Value = vbChecked Then

'Firma

Set objBlatt = ObjDatenArbeitsmappe.Workbooks.Open _

(mdl_inifile.strRechnungsVorlagePfadUndDatei_Firma_Name, _

False, True)

Else

'Privat:

Set objBlatt = ObjDatenArbeitsmappe.Workbooks.Open _

(mdl_inifile.strRechnungsVorlagePfadUndDatei_Privat_Name, _

False, True)

End If



Else

'bei Angeboten

'1. an Firmen:

If dlg_main.chk_KundeIstFirma.Value = vbChecked Then

Set objBlatt = ObjDatenArbeitsmappe.Workbooks.Open _

(mdl_inifile.strAngebotsVorlagePfadUndDatei_Firma_Name, _

False, True)



Else

'bei angeboten

'2. an Private:

Set objBlatt = ObjDatenArbeitsmappe.Workbooks.Open _

(mdl_inifile.strAngebotsVorlagePfadUndDatei_Privat_Name, _

False, True)



End If

End If







objBlatt.Sheets(mdl_inifile.strAnschreibenTabellenBlattName).Select



und so weiter.

ober objBlatt kannste jetzt fast wie VBA-Makros damit arbeiten.



mischa








Mischa Richter - www.Exceltreffen.de

 



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: