過去ログ

                                Page      10
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
   通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫   
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
 ▼クリップボードに自動保存  ハタ 02/8/29(木) 9:13
   ┗Re:クリップボードに自動保存  ひで 02/8/29(木) 9:56
      ┗Re:クリップボードに自動保存  ハタ 02/8/29(木) 10:49

 ───────────────────────────────────────
 ■題名 : クリップボードに自動保存
 ■名前 : ハタ
 ■日付 : 02/8/29(木) 9:13
 -------------------------------------------------------------------------
   初めて投稿させてもらいます。

現在、VBAにて下記のような処理を行っています。
1.VBAを組み込んだEXCELファイルを立ち上げる。
2.CSVファイルを開く。
3.CSVのデータ箇所をコピー。
4.EXCELファイルにペースト。
5.CSVファイルを閉じる。
6.EXCELファイルを上書き保存して終了。

上記処理内で、5.CSVファイルを閉じる際、
クリップボードに大きな情報があります。...
クリップボードに保存したい場合は、[はい]をクリックします。...と表示があり、
毎回、[はい]を選択して一連のVBAの処理を終了しています。
この、[はい]の選択を自動で行う処理につきまして、みなさんにお力をお借りしたくて
投稿しました。

宜しくお願いします。
 ───────────────────────────────────────  ■題名 : Re:クリップボードに自動保存  ■名前 : ひで  ■日付 : 02/8/29(木) 9:56  -------------------------------------------------------------------------
   ▼ハタ さん こんにちは
>5.CSVファイルを閉じる。
>6.EXCELファイルを上書き保存して終了。
>
>上記処理内で、5.CSVファイルを閉じる際、
>クリップボードに大きな情報があります。...
>クリップボードに保存したい場合は、[はい]をクリックします。...と表示があり、
>毎回、[はい]を選択して一連のVBAの処理を終了しています。
>この、[はい]の選択を自動で行う処理につきまして、みなさんにお力をお借りしたくて
>投稿しました。

保存が目的なのでしょうか、コメントを出したくないのでしょうか
わからなかったので両方かきました。

 1 クリップボードに保存されます
  Application.DisplayAlerts = False   '閉じるときのコメントをださない
 
 2 クリップボードに保存されません
  Application.CutCopyMode = False

どちらとも 5 の 閉じる前につけたしてください。
 ───────────────────────────────────────  ■題名 : Re:クリップボードに自動保存  ■名前 : ハタ  ■日付 : 02/8/29(木) 10:49  -------------------------------------------------------------------------
   ▼ひで さん:こんにちは

>保存が目的なのでしょうか、コメントを出したくないのでしょうか
>わからなかったので両方かきました。
>
> 1 クリップボードに保存されます
>  Application.DisplayAlerts = False   '閉じるときのコメントをださない
> 
> 2 クリップボードに保存されません
>  Application.CutCopyMode = False
>
>どちらとも 5 の 閉じる前につけたしてください。

早速試したところ、問題解決する事ができました。
他のWorkbookでも使用したかったため、保存を目的としていました。

本当にありがとうございました。

今後とも宜しくお願いします。
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━    通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫    ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━                                 Page 10