アクセス解析
レンタル掲示板

カレンダー
1234567
891011121314
15161718192021
22232425262728
293031    
<< October 2017 >>
プロフィール
お気軽にコメントして下さい。相互リンクも歓迎します!
にほんブログ村 地域生活ブログ 山口情報へ

PVアクセスランキング にほんブログ村
カテゴリー
アーカイブ
おすすめ商品
おすすめリンク

その他リンク

<< 秋 | main | ネコ退治 >>
指定範囲を広げることはできません

vbaでEXCELにデータ出力しようとして以下のメッセージが出ることがあります

原因は出力ファイルが既に存在する場合にでるようです

なので、出力前に一度削除してやればOKです

 

    Dim objFileSystem As Object
   
    Set objFileSystem = CreateObject("scripting.filesystemobject")
    If objFileSystem.FileExists("c:¥test.xlsx") Then    '存在する場合
        Kill "c:¥test.xlsx"
    End If
   
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "T_test", "c:¥test.xlsx"

 

| ACCESSシステム開発 | 09:04 | comments(0) | - |
コメント
コメントする