過去ログ

                                Page     681
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
   通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫   
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
 ▼エクスポートしたい  liee_chang 04/3/31(水) 17:54
   ┗Re:エクスポートしたい  よろずや 04/4/2(金) 0:08
      ┗Re:エクスポートしたい  liee_chang 04/6/29(火) 13:35

 ───────────────────────────────────────
 ■題名 : エクスポートしたい
 ■名前 : liee_chang
 ■日付 : 04/3/31(水) 17:54
 -------------------------------------------------------------------------
   いつもありがとうございます。

おわかりになる方、教えていただけますでしょうか??(過去ログ見てもわかりませんでした・・)

現在フォーム上にフィルタで抽出されているデータがあり、
そのデータをエクセルにエクスポートしたいです。

今までは、マクロの出力でエクセル出力していたのですが、どうやら約16500件以上は出力ができないと出てきてしまいます。

これを改善するためにTransferspreadsheetを使おうと思ったのですが
どうもテーブルではなくフィルタのフォームなので「オブジェクトがありません」と出てきてしまいました。

何か良い方法がありましたら、アドバイスをください!!
お願いしますm(__)m

 ───────────────────────────────────────  ■題名 : Re:エクスポートしたい  ■名前 : よろずや  ■日付 : 04/4/2(金) 0:08  -------------------------------------------------------------------------
   > 今までは、マクロの出力でエクセル出力していたのですが、どうやら約16500件以上は
> 出力ができないと出てきてしまいます。

仕様です。

> これを改善するためにTransferspreadsheetを使おうと思ったのですが

これも同じ仕様です。

代替策は、
Set xlApp = New Excel.Application
Set xlBook = xlApp.WorkBooks.Add
見たいな感じのコードを書く必要があります。

 ───────────────────────────────────────  ■題名 : Re:エクスポートしたい  ■名前 : liee_chang  ■日付 : 04/6/29(火) 13:35  -------------------------------------------------------------------------
   大変遅くなってしまいましたが
16500件以上だと出力できません、ってMsgBoxを入れることにしました。。
簡単に済ませてしまいました。

よろずやさんに書いていただいた代替策だと
まだわたしのレベルでは難な感じでした。
ううむ。要勉強ですね

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━    通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫    ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━                                 Page 681