Hallo,
habe schon einmal das Problem geschildert, doch es hat sich einiges geändert.
Ich verwende in meinem Program Excel als Datenbank. Das bedeutet das ich beim Program Load die Exceldatei anspreche und die bis zum Close offen bleibt. Excel ist PW geschützt.
Ich möchte den ausgewählten Eintrag in einem Word Serienbrief ausdrucken. Dies funktioniert auch mit meinem code.
PROBLEM: sobald ich visible für Excel false setze verlangt es nach manueler PW eingabe.
mache ich es true öffnet sich die Excel Datei erneuert ohne PW Abfrage.
Ich will nicht das die User das PW wissen sonst macht die PW geschützte Datei keinen sinn.
WAS IST DAS PROBLEM????
Wo ist der unterschied zwischen Visible.true und Visible.false. Warum hat das Auswirkung auf ansprechen von Excel?
mein mailmerge Code:
Mit dem zwei Visible.False habe ich es zum laufen gebracht aber Word und Excel sollten von anfang an nicht visible sein!!
DANKE
Tomi G.
habe schon einmal das Problem geschildert, doch es hat sich einiges geändert.
Ich verwende in meinem Program Excel als Datenbank. Das bedeutet das ich beim Program Load die Exceldatei anspreche und die bis zum Close offen bleibt. Excel ist PW geschützt.
Ich möchte den ausgewählten Eintrag in einem Word Serienbrief ausdrucken. Dies funktioniert auch mit meinem code.
PROBLEM: sobald ich visible für Excel false setze verlangt es nach manueler PW eingabe.
mache ich es true öffnet sich die Excel Datei erneuert ohne PW Abfrage.
Ich will nicht das die User das PW wissen sonst macht die PW geschützte Datei keinen sinn.
WAS IST DAS PROBLEM????
Wo ist der unterschied zwischen Visible.true und Visible.false. Warum hat das Auswirkung auf ansprechen von Excel?
mein mailmerge Code:
VB.NET-Quellcode
- Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
- 'vorlage word!!!
- Dim objWord As New Word.Application
- Dim objBLAT As Word.Document
- objBLAT = objWord.Documents.Open("C:\Users\Tomislav\Documents\Leitungswege1.doc")
- Master.objExcel.Visible = True
- objWord.Visible = True
- objBLAT.MailMerge.MainDocumentType = WdMailMergeMainDocType.wdFormLetters
- objBLAT.MailMerge.OpenDataSource(Name:= _
- "C:\Users\Tomislav\Documents\TELANL BASIC EXE BACKGROUND.xls", _
- ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
- AddToRecentFiles:=False, PasswordDocument:="31000", PasswordTemplate:="31000", _
- WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
- Connection:="_FilterDatenbank", SQLStatement:= _
- "", SQLStatement1:="")
- Master.objExcel.Visible = False
- objWord.Visible = False
- With objBLAT.MailMerge
- .Destination = WdMailMergeDestination.wdSendToNewDocument
- .MailAsAttachment = False
- .MailAddressFieldName = ""
- .MailSubject = ""
- .SuppressBlankLines = True
- With .DataSource
- .FirstRecord = 4
- .LastRecord = 500
- End With
- objBLAT.MailMerge.DataSource.ActiveRecord = WdMailMergeActiveRecord.wdFirstRecord
- objBLAT.MailMerge.DataSource.FindRecord(FindText:=Me.TextBox1.Text, Field:="Durchwahl")
- objBLAT.MailMerge.ViewMailMergeFieldCodes = 9999998
- objBLAT.PrintOut()
- objBLAT.Close(False)
- objWord.Quit(False)
- End With
- End Sub
Mit dem zwei Visible.False habe ich es zum laufen gebracht aber Word und Excel sollten von anfang an nicht visible sein!!
DANKE
Tomi G.