0

Word、Excelファイルのメタデータ(作成者、キーワードなど)をasp.net(vb)で読み込みたいです。どうやってやるの ？

サンプル、参考サイトはありますか？

オンラインで次のコードを見つけましたが、2 番目のステートメントに対してエラーが返されます (" Dim excelbook As New Microsoft.Office.Interop.Excel.Workbook ")

Public Sub ReadExcel(ExcelFileName As String)

    Dim Wapp As New Microsoft.Office.Interop.Excel.Application
    Dim excelbook As New Microsoft.Office.Interop.Excel.Workbook

    If Wapp Is Nothing Then
        Wapp = New Microsoft.Office.Interop.Excel.Application
    End If

    If excelbook Is Nothing Then
        excelbook = New Microsoft.Office.Interop.Excel.Workbook
    Else
        excelbook.Close()
    End If

    excelbook = Wapp.Workbooks.Open(ExcelFileName)

    Dim _BuiltInProperties As Object = excelbook.BuiltinDocumentProperties

    If Not _BuiltInProperties Is Nothing Then
        excel_keyword = _BuiltInProperties("Keywords").Value
    End If

    If Not excelbook Is Nothing Then
        excelbook.Close()
    End If

    If Not Wapp Is Nothing Then
        Wapp.Quit()
    End If

End Sub
4

2 に答える 2

2

これは同じ例です。または、 https://dl.dropbox.com/u/79986486/StackOverFlow9684368.zip {Temporary}からダウンロードできます。

C# または VB.Net で openXML を使用して、これを実現できます。

お役に立てれば。

于 2012-09-10T07:13:41.490 に答える
0

Social.MSDNからの引用

DSOFile を使用して値にアクセスできます (さまざまなファイル タイプ全体で機能します)。または、より簡単に、VBA で次のようにこれらのプロパティにアクセスできます。

Sub Macro1()
'
' Macro1 Macro
'
    Dim mWorkbook As Workbook
    Set mWorkbook = Application.Workbooks(1)
    mWorkbook.BuiltinDocumentProperties("Author").Value = "the Author"
    mWorkbook.BuiltinDocumentProperties("Title").Value = "the Title"
    mWorkbook.BuiltinDocumentProperties("Subject").Value = "the Subject"
End Sub
于 2012-09-10T07:34:36.043 に答える