1

新しいボックスを使用して実行していますVBA

Excel 以外のファイルを からExcelネットワークに保存すると、予期しないエラーが発生します。

あるプログラムでは、次の場合に失敗します

.SaveAs "\\fileserve\department$\x\yyy\xxx\" & RepOperName & FileName & strdate & ".msg", olMSG

実行時エラー '-2147287008(80030020)' の表示

別の例では、ドキュメントが保存されていないという警告が表示されて、次の行で停止します。Excel.ActiveSheet.ExportAsFixedFormat...これらは、保存しようとしている pdf ドキュメントです。

Dim FullPath_pdf As String
FullPath_pdf = "\\fileserve\department$\x\Statistics\Reporting\zzz\yyy\kkk\Daily Summary.pdf"
Excel.ActiveSheet.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    FileName:=FullPath_pdf, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    From:=1, _
    To:=2, _
    OpenAfterPublish:=False

これは、サーバー上の Excel の構成に起因する可能性がありますか?
それとも、仮想サーバーの構成とそのネットワークとの関係に関係するのでしょうか?

4

1 に答える 1

2

同じ問題がありました。

非 xls ファイルを Excel からネットワーク パスに直接保存できないことがわかりました。したがって、私の回避策は次のとおりです。

  1. ファイルを任意のディレクトリにローカルにエクスポートします
  2. ROBOCOPYを使用して (Windows 7 を使用しているため)、ネットワーク経由でファイルを転送します。

それはうまくいくはずです。もう 1 つのヒントは、新しいファイルを作成する前に Excel で古いファイルを削除することです。次のようなマクロを使用できます。

Sub DeleteExample()
'You can use this to delete all xml? files in the folder Test
    On Error Resume Next
    Kill "C:\Users\Neo\*.xml*"
    On Error GoTo 0
End Sub
于 2016-07-29T02:22:56.743 に答える