1:
2:
3:
4:

private void MyButton_Click(CommandBarButton cmdBarbutton, ref bool cancel)
{
            
}					

1:
2:

ApplicationClass excelApplication = new ApplicationClass();
Workbook excelWorkBook = null;					

1:
2:

string Quellpfad = @"D:\Test.xlsx";
string Zielpfad = @"D:\Test.pdf";					

1:

Zielpfad = Left(ActiveDocument.Name, InStr(1, ActiveDocument.Name, ".") - 1) & ".pdf"					

1:

string destination = Path.Combine(@"D:\", Path.ChangeExtension(ActiveDocument.Name, "pdf"));					

1:

string sourcePath = Path.Combine(@"D:\", Path.ChangeExtension(ActiveDocument.Name, "pdf"));					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

''Excel-Datei exportieren 
Sub pdfexport()
Dim strFilePath  As String
Dim strFileName  As String

strFilePath = "D:\"
strFileName = Left(ActiveWorkbook.Name, InStr(1, ActiveWorkbook.Name, ".") - 1) & ".pdf"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFilePath & strFileName, Quality:=xlQualityStandard, _
                                    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

End Sub					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

Microsoft.Office.Interop.Excel.ApplicationClass excelApplication = new ApplicationClass();
Workbook excelWorkBook = null;

try
{
     string test2 = excelApplication.ThisWorkbook.FullName;  // Pfad einschließlich Dateiname ?
     string test3 = excelApplication.ThisWorkbook.Path;      // nur der Name ?
     string test4 = excelApplication.Name;                   // nur der Pfad ?

     File.AppendAllText(@"D:\test2.log", test2);
     File.AppendAllText(@"D:\test3.log", test3);
     File.AppendAllText(@"D:\test4.log", test4);
 }
catch (Exception ex)
{
     MessageBox.Show("Fehler:" + ex.Message + "\n" + ex.StackTrace, "Fehler");
}