Ｐａｇｅ 765 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼データを別のファイルに保存 さる 03/2/18(火) 12:32 ┗Re:データを別のファイルに保存 BOTTA 03/2/18(火) 12:56 ┗Re:データを別のファイルに保存 さる 03/2/18(火) 13:30 ┗Re:データを別のファイルに保存 BOTTA 03/2/18(火) 19:46 ┗Re:データを別のファイルに保存 さる 03/2/19(水) 10:03 ─────────────────────────────────────── ■題名 ： データを別のファイルに保存 ■名前 ： さる ■日付 ： 03/2/18(火) 12:32 -------------------------------------------------------------------------
| 現在使用中のbookのデータが溜まったら、 別のファイルに保存する。ということをマクロにしたいんです。 保存先のファイルはexcelが一番良いんでしょうか？ その辺のこともいまいち良くわかりません。 データというのは、住所録のようなものです。 |
| さるさん、こんにちは。 まず、 >現在使用中のbookのデータが溜まったら、 を、どこで判断するか？ たとえば、DATAが100行目まできたら、 とか、入力するたびにデータを別ファイルに転記、 等。 >保存先のファイルはexcelが一番良いんでしょうか？ ExcelファイルはExcelとして保存するのが基本だと思いますが、 File容量が少なくて、Excelの機能が不要なら、テキスト形式で保存するのも１つの方法。 目的を明確に。 |
| >>現在使用中のbookのデータが溜まったら、 >を、どこで判断するか？ 何行目まで溜まったらというのではなく、年一回または半年に一回ということです。 excelの機能は必要ありません。 |
| さるさん、こんばんは。 ActiveSheetをText形式で保存するコードの一例です。 Sub aaa() Dim SaveFileName As String Application.DisplayAlerts = False SaveFileName = Application.GetSaveAsFilename(fileFilter:="テキスト ファイル (*.txt), *.txt") If SaveFileName <> "False" Then ActiveSheet.Copy With ActiveWorkbook .SaveAs _ Filename:=SaveFileName, _ FileFormat:=xlText .Close End With End If Application.DisplayAlerts = True End Sub お試し下さい。 |
| BOTTAさん、おはようございます。 出来ました。こんな感じです。 あとは、このコードを参考に自分でやってみます。 ここの質問箱は本当に勉強になります。ありがとうございました。 |