Hallo Zusammen,
ich benutze relativ oft eine Exceldatei, welche auf unserem Server abgelegt ist.
Diese Exceldatei würde ich gerne aus über ein VBA Makro aus Outlook(2010) heruas öffnen, bearbeiten und dann wieder abspeichern.
Folgender Code funktioniert irgendwie nicht ..
Public Sub Angebotsvergleich()
Dim File$
Dim Xl As Object ' Excel.Application
Dim Wb As Object ' Excel.Workbook
Dim Ws As Object ' Excel.Worksheet
Dim Rn As Object ' Excel.Range
File = "G:\..."
On Error Resume Next
Set Xl = GetObject(, "excel.application")
On Error GoTo 0
If Xl Is Nothing Then Set Xl = New Excel.Application
Set Wb = Xl.Workbooks.Open(File)
Set Ws = Wb.Sheets(1)
Ws.Activate
Set Rn = Ws.Range("a1")
Rn.Activate
Xl.Visible = True
End Sub
|