Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


881 / 13645 ツリー ←次へ | 前へ→

【77759】テキストファイルをエクセルのシートに自動貼り付け PSVV9134 15/12/19(土) 16:43 質問[未読]
【77760】Re:テキストファイルをエクセルのシートに... γ 15/12/19(土) 17:16 発言[未読]
【77761】Re:テキストファイルをエクセルのシートに... マナ 15/12/19(土) 17:25 発言[未読]

【77759】テキストファイルをエクセルのシートに自...
質問  PSVV9134 E-MAIL  - 15/12/19(土) 16:43 -

引用なし
パスワード
   vbaについて

テキストファイルをエクセルにコピーし(エクセルの上にドラックして開いた時のような感じ)
それを応用して作業しようと思うのですが下記ことをやる場合どういうコードを書けばいいでしょうか。


@どのテキストファイルをコピーするか聞く(ダイアログボックスで)
※txtのみ開けるようにする
※すでに開いている場合は、[abc.txtを閉じてください。閉じたらOKを押してください。やめる場合は、キャンセルを押してください。]と表示する(OK・キャンセルボタン)
※ファイルが見つからない場合は、[ファイルが見つかりません。もう一度探しますか。]と聞ききダイアログボックスもう一度開き探させる(はい・いいえボタン)

Aデスクトップにある測定結果のフォルダに
@で選択したファイル名(例:abc.txt → abc.xls)で
Excelファイル(xls形式)を作り開く
※すでに開いている場合は、[abc.xlsを閉じてください。閉じたらOKを押してください。やめる場合は、キャンセルを押してください。]と表示する(OK・キャンセルボタン)
※すでに同一のExcelファイルがある場合は、上書きしますかと聞き
はいを選択したら上書きする(はい・いいえボタン)

BAのExcelファイルに
@で選択したテキストデータを貼り付け

CBで貼り付けたシート名を測定データに変更

D初めに作られているSheet1、Sheet2、Sheet3があれば削除

E保存(上書き)

【77760】Re:テキストファイルをエクセルのシート...
発言  γ  - 15/12/19(土) 17:16 -

引用なし
パスワード
   他人にコードを書いて貰おうと思っていますか?
それともご自分で作ろうとしていますか?

後者なら重要なことから順にステップを踏んで実現していくことですね。

テキストファイルをExcelに読み出すには、
データ - 外部データの取込 - テキストファイル
を使うといいですよ。
マクロ記録をとればコードができます。

ファイル指定は GetOpenFilenameを使います。
ネットで使い方を調べてください。拡張子指定もできます。

あとは、微調整ですね。

【77761】Re:テキストファイルをエクセルのシート...
発言  マナ  - 15/12/19(土) 17:25 -

引用なし
パスワード
   ▼PSVV9134 さん:

3段階でいいのでは?

1)テキストファイルを開いて
2)シート名を測定データに変更し
3)所定のフォルダにXLS形式で保存(上書き保存)

881 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free