VBA-Worddatei überprüfen bzw. speichern

[barthi]

Code:

Sub kontrolle_Click()
  Dim strFile As String
  Dim WordApp As Object
 
  Set wsSource = Workbooks("1.xls").Worksheets("Mappe1")
  wsSource.Activate
   strRows = Selection.Row
   Set WordApp = CreateObject("word.Application")
    strFile = ThisWorkbook.Path & "\" & wsSource.Range("Z" & strRows) & ".docx"
   
   
If Dir(strFile) = "" Then
 With WordApp
     .Visible = True
     .WindowState = -4143
     .Activate
     .Documents.Open Filename:=ThisWorkbook.Path & "\leer.docx"
      .Document.SaveAs
    .Name = strFile
    .Show
   
End With
Else
With WordApp
     .Visible = True
     .WindowState = -4143
     .Activate
     .Documents.Open Filename:=strFile
     End With
  End If
 
End Sub

So habe nochmal alles deklariert. Ich hatte die IF und Else vertauscht. Er soll ja bei Nichtvorhandensein der Datei die leer.docx öffnen und bei Vorhandensein diese öffnen ::)unktioniert auch alles. Aber leider speichert er die leer.docx nicht unter dem anderen Namen ab. Fehlermeldung kommt keine.

[Kuwer]

Hallo Ralf,

Noch eine Anmerkung:
Du solltest nicht .WindowState = -4143 nehmen, sondern den "sprechenden" Konstantennamen.
Erstens ist der Code dann lesbarer und zweitens muss VBA die Bedeutung der "kryptischen" Zahl nicht erst übersetzen.

ich hoffe, dass Du das nicht ernst meintest. Es ist nämlich genau anders herum. Der Wert ist das pure Basic und nicht der Konstantenname! Und bei Late Binding wie hier funktioniert es nur mit Werten.

Siehe z.B. auch hier am Beispiel mit Outlook: Outlook und Excel (1) Grundlagen und Einführung

Gruß Uwe

[RPP63]

Doch doch, Uwe!
Ich habe das mal von Nepumuk aufgeschnappt, dem man ja nicht gerade Unkenntnis unterstellen kann.
Bin jetzt nicht am Rechner, werde aber später mal ein Beispiel geben.
Sollte ich wider Erwarten falsch liegen, dann vorsorglich schon mal mea culpa.
Gruß Ralf

[RPP63]

Ergänzend hast Du mit late binding natürlich Recht!
Da klappt nur der reine Zahlenwert.

[RPP63]

Ich konnte meine These nicht untermauern, kann Deine aber auch nicht bestätigen.
Rödel-Code:

Sub Konst_vs_Zahl()
Dim i&, Start#, k#
k = ActiveCell.Borders(xlEdgeRight).Weight
Start = Timer
For i = 1 To 10 ^ 9
  k = k - 4138
Next
Debug.Print k & " Zahl: " & Timer - Start
k = ActiveCell.Borders(xlEdgeRight).Weight
Start = Timer
For i = 1 To 10 ^ 9
  k = k + xlMedium '-4138 
Next
Debug.Print k & " Konst: " & Timer - Start
End Sub

ergibt:

-4138000004138 Zahl: 14,5625

-4138000004138 Konst: 14,59765625


Gruß Ralf

[Steffl]

Hallo,

.. Er soll ja bei Nichtvorhandensein der Datei die leer.docx öffnen und bei Vorhandensein diese öffnen ::)unktioniert auch alles. Aber leider speichert er die leer.docx nicht unter dem anderen Namen ab. Fehlermeldung kommt keine.

Du hast hier

Code:

.Document.SaveAs

auch keine Parameter angegeben.

[snb]

@RPP:

specialcells(2) braucht 'weniger' Zeit als specialcells(xlcelltypeconstants)

Code:

Sub M_snb()
    Dim y As Integer, j As Long
    Dim t(1) As Double
    
    t(0) = Timer
    For j = 1 To 10 ^ 5
       y = UsedRange.SpecialCells(2).Count
    Next
    t(1) = Timer - t(0)
    t(0) = Timer
    For j = 1 To 10 ^ 5
       y = UsedRange.SpecialCells(xlCellTypeConstants).Count
    Next
    t(0) = Timer - t(0)
    
    MsgBox "specialcells(2)            " & t(1) & vbLf & "specialcells(xlCellTypeConstants)    " & t(0)
End Sub

Dass timmt überein mit warum man in 'late binding' nur '2' verwenden kann.
In 'early binding wird der 'Excel Translator' geladen und die Translator aktiviert: es findet noch eine 'übersetzung' statt.

[RPP63]

Nö!


Der Fairness halber sollte man korrekt refreshen.

Dein Makro gesplittet und nacheinander aufgerufen:

Modul Modul1

Dim y As Integer, j As Long 
Dim t As Double 

Sub MachEs() 
Call M_Const 
Call M_Number 
End Sub 

Private Sub M_Const() 
    t = Timer 
    For j = 1 To 10 ^ 4 
       y = Tabelle1.UsedRange.SpecialCells(xlCellTypeConstants).Count 
    Next 
    Debug.Print "xlCellTypeConstants: " & Timer - t 
End Sub 

Private Sub M_Number() 
    t = Timer 
    For j = 1 To 10 ^ 4 
       y = Tabelle1.UsedRange.SpecialCells(2).Count 
    Next 
    Debug.Print "Number 2: " & Timer - t 
End Sub 

Ergibt:

xlCellTypeConstants: 9,5625
Number 2: 9,6171875

Hier ist jetzt die ausgeschriebene Version schneller.