vbaで新しいブックを作成して、順番に1,2,3・・と名前を付けて保存したいのですがコードの書き方がわかりません。教えていただけないでしょうか。

このQ&Aに関連する最新のQ&A

A 回答 (2件)

>vbaで新しいブックを作成して、順番に1,2,3・・と名前を付けて保存したい



○1,2,3…とループを行う
○新しいブックを作成する
○名前を付けて保存する

sub macro1()
 dim i as long
 for i = 1 to 3
  workbooks.add
  activeworkbook.saveas filename:="c:\test\" & i & ".xls"
  activeworkbook.close false
 next i
end sub
みたいな。
    • good
    • 0
この回答へのお礼

ありがとうございます。
うまくいきました。

お礼日時:2011/04/17 20:44

答えは出たようですが、こんな質問は、ここに質問するまでも無く、とりあえず1回の操作(新しいブックを作成して、名前を付けて保存)をしてマクロの記録を取り(勉強し)、全体を必要回数繰り返せば良い。


ただし、
人に頼っていたら上達しない。
・繰り返しの終了をどうするか。
・毎回の名前をどうするか(本件は連続番号らしいが、それでももし売上1、売上2、・・とつけたいだったらどうするか判りますか。
・肝心のブックに対する処理をどうするか。
などの勉強が必要です。
    • good
    • 0

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Q旅先でのホテルの探し方

普段「地球の歩き方」持参して旅行をしており、ホテルはそのガイドブックにのっている中から安い宿を探して泊まり歩いております。ガイドブックをもっていればいいのですが、たまたま訪れた国のガイドブックが持参していなかった場合、ホームページ上でガイドブックのようなサイトがあって、そのサイトでホテルを探すことができるようなサイトはないでしょうか。ご存知の方、よろしくお願い致します。

Aベストアンサー

hostelworld.comをよく使ってます。
ホテルはもちろんですが、ユースやドミやゲストハウスなど、安宿も充実しています。
ユースのみに絞って探すなら、ユースホステル協会のサイト。
検索したら普通に出てくるはず。

もしくはガイドブックがなくても、例えばmixiのその国のコミュニティで質問すればおすすめの宿が出てくるのではないでしょうか。

あるいは、ヨーロッパの都市でしたら小さい町や村にもインフォがあったりします。
そこで安い宿を紹介してもらってください。
例えばポルトガルには看板の出てない安宿もたくさんありますが、インフォで聞くと色々教えてくれました。
仮に満室でも、「他に安い宿はないか」と聞いて周辺の宿を紹介して貰いました。

QVBA 名前を付けて保存(ダイアログBOX)

いつもお世話になります
処理
(1)セルへ値等入力

(2)セルの値を名前にして
名前を付けて保存する

(3)クリアにする

(1)からスタート

上記の繰り返し作業をしたいのですが
名前を付けて保存した瞬間にマクロもその名前で
保存されているらしく繰り返し作業がうまくいきません
どなたか分かる方おねがいします

Aベストアンサー

保存時、以下のモジュールを参考にしてください。

'保存処理
Sub BookSave()
Dim wBookPath As String
Dim CopySheet As Worksheet
Dim Sv_FileNm As String
'
Sv_FileNm = Thisworkbook.Worksheets(1).Cells(1,1) & ".xls" '※<--入力セル
wBookPath = Application.GetSaveAsFilename(InitialFileName:=Sv_FileNm, _
filefilter:="Excel ファイル (*.xls), *.xls", Title:="保存処理")
'
Set CopySheet = Thisworkbook.Worksheets(1)
CopySheet.Copy
ActiveWorkbook.SaveAs FileName:=wBookPath, Password:=""
ActiveWorkbook.Close savechanges:=False
Thisworkbook.Worksheets(1).Activate
End Sub

上記の「※<--入力セル」は任意なので、変更して使って下さい。

保存時、以下のモジュールを参考にしてください。

'保存処理
Sub BookSave()
Dim wBookPath As String
Dim CopySheet As Worksheet
Dim Sv_FileNm As String
'
Sv_FileNm = Thisworkbook.Worksheets(1).Cells(1,1) & ".xls" '※<--入力セル
wBookPath = Application.GetSaveAsFilename(InitialFileName:=Sv_FileNm, _
filefilter:="Excel ファイル (*.xls), *.xls", Title:="保存処理")
'
Set CopySheet = Thisworkbook.W...続きを読む

Q【香港】リーガルオリエンタルホテル~ディズニーランド

【大至急】
香港旅行にて、リーガルオリエンタルホテルに宿泊することになりました。しかし、このホテル、購入した数冊のガイドブックには、名前すら出ていません、ネットにて立地やホテルの情報はわかったのですが、ホテルからディズニーランド間の交通手段がわかりません、何方かご存知の方お願いします。

Aベストアンサー

旧空港の近くのホテルですね。
グーグルマップでリーガルオリエンタルホテルの住所
30-38 Sa Po Road , Kowloon City, Kowloon
を入力して検索すると詳しい場所が出ます。
ホテルがちょっと外れた所なので、ここからなら地下鉄の太子駅までタクシーに乗って、そこから地下鉄で向かうのが一番わかりやすいし早いと思います。
地下鉄の路線図はガイドブックかこちら

http://www5f.biglobe.ne.jp/~hongkong/mtr.html
で確認してみてください。
上記URLの色で説明しますと、画面中央上側の、Y字に分かれている太子から、左方面に、赤い線、オレンジの線、ピンクの線の順で乗り継ぐ方法です。
かかる時間は、太子駅からは30分位です。

ちなみに他の方法でのディズニーランドへのアクセスは、以下のページに詳しいです。
http://www5f.biglobe.ne.jp/~hongkong/area3.html

QMS-wordで,ワイルドカードを用い,n人(1, 2, 3)を3人(1, 2, 3)に置換

ワイルドカードを用いた置換の仕方についてお伺いします.

用いているのはword for mac 2004です.

n人(1, 2, 3)や、n人(2, 3, 4)や、n人(3, 4, 5)
n人(1, 2, 3, 4)や、n人(2, 3, 4, 5)や、n人(3, 4, 5, 6)

といったものを,

3人(1, 2, 3)や、3人(2, 3, 4)や、3人(3, 4, 5)
4人(1, 2, 3, 4)や、4人(2, 3, 4, 5)や、4人(3, 4, 5, 6)

という風に,nを()内の数字の個数に一度に置換したいのですが,

検索文字列は
n人(1, 2, 3)や、n人(2, 3, 4)や、n人(3, 4, 5)の場合は

n人(?, ?, ?)

で検索できることはわかっているのですが,置換後の文字列はどのようにすればよいでしょうか?
ちなみに数字やn、カンマとその後のスペースは半角,括弧は全角です.

よろしくお願いします.

Aベストアンサー

ワイルドカードを使用した場合、()で閉じた内容が一つの式として認識
されますので、(n)が一つ目の式で「n」だけを条件にして、(人(?, ? ))
のようにすることで二つ目の式にして「(人(?, ? )」をまとまった式
にします。

検索条件にした式を参照するのが、\ 記号と式の順番である数字である
「\1」や「\2」のようなものを置換の条件にします。(半角で指定)
今回の場合は、最初の式を変えるので n=\1 ですから \1=3 になること
から、式をそのまま参照するときの \1\2 が 3\2 になるのです。

このように式を利用することで、特定の文字列を参照したときに、その
一部だけを置換する場合に効果的に利用できるようになります。
もっと条件が多い場合では、Wordの置換機能では無理な場合もあります
ので、その場合は正規表現ができるもので置換することになりますが、
今回は関係ないことなので具体的には説明しません。

ちなみにマクロについては、私に提示できる技量が現時点では無いので
回答しませんが、条件としては以下のようなものでマクロを組むことに
なると思います。

検索・置換の条件を指定してのマクロ
**************************************************************
検索する()内の数字の個数を数え、その個数を検索する対象にある
n と置き換えることで、個数が増えても一括で n を個数に置換する。
**************************************************************
これをマクロで組むことで、数字の個数が増えてもマクロが自動で置換
してくれると思います。

ワイルドカードを使用した場合、()で閉じた内容が一つの式として認識
されますので、(n)が一つ目の式で「n」だけを条件にして、(人(?, ? ))
のようにすることで二つ目の式にして「(人(?, ? )」をまとまった式
にします。

検索条件にした式を参照するのが、\ 記号と式の順番である数字である
「\1」や「\2」のようなものを置換の条件にします。(半角で指定)
今回の場合は、最初の式を変えるので n=\1 ですから \1=3 になること
から、式をそのまま参照するときの \1\2 が 3\2 になるのです。

この...続きを読む

Q町の旅行会社か、東京ブックマークか・・・

表題の通り2つで悩んでます。

東京ブックマークはホテルのグレードがそれなりのクラスしかなく、ビジホレベルがありません。
飲みに行くのは確実なので寝れればいいのですがビジホが無いのでサティ内等にあるJTBさんとか
だと新幹線+ビジホで頼むとある程度は安くなるのでしょうか?

ビジホに2500円足すと良さ気なホテルになるブックマークと悩んでいます。

Aベストアンサー

JR東海はケチなので、JR東海ツアーズ以外には「新幹線の格安切符」を卸しません。ですので、新幹線を使うことが前提ならJR東海ツアーズのツアー以外はもったいないです。逆に他の交通機関(バスとか飛行機とか)なら、他社のツアーの方が絶対に安いです。

ちなみにJR東海のツアーは非常に探しにくいことで有名です。TOKYO BOOKMARK以外にも結構安いツアーがあるんですけどね。普通に探すと見つからないんですよ。まずはJR東海ツアーズのトップページから出発地を選び、諸条件を設定して「検索」すると、ビジネスホテルクラスのツアーが出てきます。

でも、実際に各プランをクリックして利用可能な列車を調べると、ほとんどが「こだま利用」で使いにくいです。ですので、一番下までスクロールして、右下の小さい「1,2,3,4…」を順番にクリックしてください。そのうちTOKYO BOOKMARK同様の「のぞみ利用」のツアーが出てきます。

ツアーによっては「普通に新幹線往復するより、一泊ホテル付きの方が安い」なんてのも出てきます。後はあなたの根気しだい(苦笑)、別々に個人手配するより、ビジネスホテル利用ならほぼ確実にこっちの方が安いです。

参考URL:http://www.jrtours.co.jp/

JR東海はケチなので、JR東海ツアーズ以外には「新幹線の格安切符」を卸しません。ですので、新幹線を使うことが前提ならJR東海ツアーズのツアー以外はもったいないです。逆に他の交通機関(バスとか飛行機とか)なら、他社のツアーの方が絶対に安いです。

ちなみにJR東海のツアーは非常に探しにくいことで有名です。TOKYO BOOKMARK以外にも結構安いツアーがあるんですけどね。普通に探すと見つからないんですよ。まずはJR東海ツアーズのトップページから出発地を選び、諸条件を設定して「検索」すると...続きを読む

QEXCEL2010で名前を付けて保存の時に「ファイルにアクセスできませんでした」エラーが出ます

タイトルの通りのエラーが出ます。
上書き保存だと大丈夫なのですが、名前を付けて保存にしてファイル名の最後の数字を変える(更新履歴のため)と保存できなくなります。
ただ、保存先を既存の読み込んだフォルダではなくデスクトップにすると保存できるのです。
今は面倒ですが一旦デスクトップに保存してその後フォルダに移動していますが不自由で仕方ありません。
ただ、全部が全部ではなく昔作ったファイルは大丈夫なようです。
できるファイルとできないファイルにどんな差があるのは検証できていません。
このような現象を解決する方法はあるのでしょうか?

エラーの画像を貼り付けます。
当然ですが文字数が218を超えていることはありません。
禁止文字も使用しておりません。
OSはWindows7(バージョン6.1) HomePremiumです。

Aベストアンサー

お礼ありがとうございます。

試されて該当するものがない。インストールされているソフト関連。
再インストール可能なものは、試されたほうが良いかもです。
別件ですが僕の場合、ウイルスソフトをアンインストール・再インストールしたら改善されました。
システムの復元をしたら、ウイルスソフトのファイル名が、goo → goo(2) のように幾つも変えられてました。

他では、フリーソフトの仕業でアイコン表示が変えられてしまったり、Excelのメニューバーに余計なものが追加されたり。
Excelに関しては、これを試したら上手くいきました。
http://office-qa.com/Excel/ex91.htm
※多分、このページだったと思います。

PCは、何が原因か分からなくても触っているうちに、なおったりします。
リカバリもそれ程、難しくないのでリカバリ前提で触られて良いかと。
その際、大事なファイルのバックアップは、お忘れなく。

ご参考になれば幸いです。

Qホテル内で無線ランでインターネットが使えるか?

先日、DELLのノートブックPC購入。
出張先のホテルでもこのPCでインターネットが使えればと思うのですが、
今たいていのホテルでは無線ラン対応でインターネットが使えるのでしょうか?
それともまだ無線ラン対応のホテルはごく一部なのでしょうか。

現在の日本における無線ラン対応のホテル事情を教えて頂けますか。

よろしくお願い致します。

Aベストアンサー

ホテルで無線LANを装備しているところはだんだんと増えては来ましたが、まだ少数と言えると思います。
たとえ使えたとしても、ロビーやカフェテリアなどごく限られた所だけだったりします。

部屋で無線LANが使える、というのはあまり聞いたことないですね。
しかし部屋は有線LANが使えるところは増えてきてますし、部屋のテレビの代わりにパソコンが備え付け(もちろんテレビも見られる)で、インターネットも可能なホテルというのもありました。

QブックCloseでVBAが続かない

エクセル2002を使用しています

ブック(A)をコピーして名前(B)をつけて別ブックで保存しました
ブック(A)を呼び出し後、ブック(B)を閉じてブック(A)のVBAを継続したいのですが
継続しません

作成したモジュールは以下です

  Application.DisplayAlerts = False

  '【不要なシートを削除する】
Sheets(Array("注文書入手差異表", "入手予定履歴", "main", "営C")).Select
ActiveWindow.SelectedSheets.Delete

  '【ThisWorkbook.Pathの『注文書確認フォルダ』の中に、名前をつけて別ブックで保存する
  '   …ユーザーフォームを使用するのでマクロごと保存】
Dim myFolder As String
Dim Filename As String

myFolder = ThisWorkbook.Path & "\注文書確認フォルダ"

Filename = Format(Date, "yyyymmdd") & "注文書入手予定表"

If Dir$(myFolder, vbDirectory) = "" Then
MkDir myFolder
End If

ActiveWorkbook.SaveAs Filename:= _
myFolder & "\" & Filename

Application.DisplayAlerts = True

'【保存した別ブック名を再取得】
Dim myName0 As String
myName0 = ThisWorkbook.Name

  '【コピー元のファイルを開く】
Dim myPath As String
myPath = Application.Substitute(ThisWorkbook.Path, "\注文書確認フォルダ", "")
Workbooks.Open (myPath & "\" & "注文書入手予定表")

  MsgBox "【注文書確認フォルダ】の中に別ブックが作成されました"  

  '【保存した別ブックを閉じる】
Workbooks(myName0).Activate
Windows(myName0).Activate
ActiveWorkbook.Close

'******下のマクロが続かない*****************
'======================
Call Macro6
'======================

  VBA ステップインで原因を探ろうとしたのでですが

  「中断モードでは入力できません」のメッセージがでて
  デバッグができません

  八方ふさがりの状態です。助けていただけませんか。

エクセル2002を使用しています

ブック(A)をコピーして名前(B)をつけて別ブックで保存しました
ブック(A)を呼び出し後、ブック(B)を閉じてブック(A)のVBAを継続したいのですが
継続しません

作成したモジュールは以下です

  Application.DisplayAlerts = False

  '【不要なシートを削除する】
Sheets(Array("注文書入手差異表", "入手予定履歴", "main", "営C")).Select
ActiveWindow.SelectedSheets.Delete

  '【ThisWorkbook.Pathの『注文書確認フォルダ』の中に、...続きを読む

Aベストアンサー

Call Macro6

これはブックの操作がなければ動作するのですよね?

クローズをアクティブブックではなく、該当のブックを明示的にしなければいけないかも。

> Workbooks(Filename & ".xls").Activate
> Windows(Filename & ".xls").Activate
> ActiveWorkbook.Close

ここを、単純に

Workbooks(Filename & ".xls").Close

と、してみた場合、どうでしょう?

Q京都おススメガイドブックなど

2月か3月に3泊で京都に一人旅をする予定です
さっそくガイドブックを読んだりしているのですが、どれも自分にピンとくるもではなく…もっとたくさんいろんなところが載っているガイドブックが読みたいです

そこで皆さんのおススメガイドブック教えて下さい

また、観光場所(寺や食事、ホテルなど)でおススメがあったらぜひ教えて下さい!

よろしくお願いします

Aベストアンサー

旅行の前に読むのは、No1さんと同じ「ミーツ」。
現地に持って行くのは、「歩く地図」です。http://www.yamakei.co.jp/prev.php?id=11474
10年ぐらい、ずっと「歩く地図」を愛用しています。
私はてくてく歩くのが好きなので、この本の、地図だけを取り外して持ち歩いています。(身軽に歩きたいだけなんですが・・)
同じ出版社の「京都歩く地図帳」にも興味があるので、今年はこっちを買ってみようかなあなどとも思っています。・・http://www.yamakei.co.jp/prev.php?id=11489

興味のある分野によっては、ガイドブックではなく、市販の書籍の方がぴったりかもしれませんよ。お寺、きもの、和菓子、歴史、などなど京都の魅力は奥深いので、なかなかガイドブックでは網羅できませんね。お土産やお守りなど一つのテーマを扱った単行本もよく書店でみかけます。http://www.amazon.co.jp/gp/product/4838103581/sr=1-1/qid=1163997785/ref=sr_1_1/503-2592839-0000712?ie=UTF8&s=books

旅行の前に読むのは、No1さんと同じ「ミーツ」。
現地に持って行くのは、「歩く地図」です。http://www.yamakei.co.jp/prev.php?id=11474
10年ぐらい、ずっと「歩く地図」を愛用しています。
私はてくてく歩くのが好きなので、この本の、地図だけを取り外して持ち歩いています。(身軽に歩きたいだけなんですが・・)
同じ出版社の「京都歩く地図帳」にも興味があるので、今年はこっちを買ってみようかなあなどとも思っています。・・http://www.yamakei.co.jp/prev.php?id=11489

興味のある分野によっ...続きを読む

QVBAでブック名の拡張子を除去してシートにコピー

VBA初心者でコード作成で困っております。

下記の通りコードを組みましたが、シート名をブック名に変更して
保存したいのですが、このコードですと拡張子までついてしまいます。
拡張子を除去するためにはどうすればよいでしょうか?

アドバイス宜しくお願い致します。

Sub test()

'シート名の変更

Dim MyPath As String

Dim MyFile As String

Dim Wb As Workbook


MyPath = "C:\TEST\"

MyFile = Dir(MyPath & "*.xlsx")


Do While MyFile <> ""

Set Wb = Workbooks.Open(MyPath & MyFile)

ActiveSheet.Name = ActiveWorkbook.Name

Application.DisplayAlerts = False

Wb.Save

Application.DisplayAlerts = True

Wb.Close (False)

MyFile = Dir()

Loop

End Sub

VBA初心者でコード作成で困っております。

下記の通りコードを組みましたが、シート名をブック名に変更して
保存したいのですが、このコードですと拡張子までついてしまいます。
拡張子を除去するためにはどうすればよいでしょうか?

アドバイス宜しくお願い致します。

Sub test()

'シート名の変更

Dim MyPath As String

Dim MyFile As String

Dim Wb As Workbook


MyPath = "C:\TEST\"

MyFile = Dir(MyPath & "*.xlsx")


Do While MyFile <> ""
...続きを読む

Aベストアンサー

拡張子が .xlsx と決まっているなら

ActiveSheet.Name = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5)

では?


人気Q&Aランキング