Excel VBA質問箱 IV

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

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


8308 / 13644 ツリー ←次へ | 前へ→

【33952】名前を付けて保存 りょう 06/1/24(火) 11:57 質問[未読]
【33955】Re:名前を付けて保存 inoue 06/1/24(火) 12:19 発言[未読]
【33988】Re:名前を付けて保存 りょう 06/1/24(火) 17:01 質問[未読]
【33989】Re:名前を付けて保存 りょう 06/1/24(火) 17:43 お礼[未読]
【34021】Re:名前を付けて保存に条件文設定 りょう 06/1/25(水) 9:24 質問[未読]
【34022】Re:名前を付けて保存に条件文設定 Blue 06/1/25(水) 9:30 発言[未読]
【34032】Re:名前を付けて保存に条件文設定 りょう 06/1/25(水) 11:59 お礼[未読]
【34068】Re:名前を付けて保存に条件文設定 りょう 06/1/25(水) 19:00 質問[未読]
【34076】Re:名前を付けて保存に条件文設定 Blue 06/1/25(水) 23:50 回答[未読]
【34099】Re:名前を付けて保存に条件文設定 りょう 06/1/26(木) 11:45 お礼[未読]

【33952】名前を付けて保存
質問  りょう  - 06/1/24(火) 11:57 -

引用なし
パスワード
   こんにちは。今シートを別のドライブのフォルダー(N:\test\依頼)に保存&名前はActivesheets("sheet1").Range("H1")を引用したいと思っています。SaveAsを使うのはわかるのですが、ドライブを指定して保存の仕方がわかりません。下記では動作しない上にドライブの指定ができません。どうしたらいいのでしょうか?

Workbooks("Book1").SaveAs Filename:=Worksheets("Sheet1").Range("H1").Value & ".xls"

【33955】Re:名前を付けて保存
発言  inoue E-MAILWEB  - 06/1/24(火) 12:19 -

引用なし
パスワード
   >Workbooks("Book1").SaveAs Filename:=Worksheets("Sheet1").Range("H1").Value & ".xls"
ファイル名は「フルパス」で指定して下さい。

Workbooks("Book1").SaveAs Filename:="N:\test\依頼\" & _
  Worksheets("Sheet1").Range("H1").Value & ".xls"

【33988】Re:名前を付けて保存
質問  りょう  - 06/1/24(火) 17:01 -

引用なし
パスワード
   >ファイル名は「フルパス」で指定して下さい。
 このままではなくpathを取得するんですか?
>
>Workbooks("Book1").SaveAs Filename:="N:\test\依頼\" & _
>  Worksheets("Sheet1").Range("H1").Value & ".xls"
 インデックスが有効範囲内にありませんのエラーが出てしまいます。
 どうしてでしょう(>_<)

【33989】Re:名前を付けて保存
お礼  りょう  - 06/1/24(火) 17:43 -

引用なし
パスワード
   すみません。私が指定を間違っていました。。できましたあ。。
inoueさんありがとうございました。。

【34021】Re:名前を付けて保存に条件文設定
質問  りょう  - 06/1/25(水) 9:24 -

引用なし
パスワード
   こんにちは
同じ名前があるとエラーが出てしまうので、IF文で同じ名前があるときはセーブさせないでmsgbox”同じ名前があります”とし、userform showにして"H1"のセルの値を変更させたいのですが、そういうことはできますか?

【34022】Re:名前を付けて保存に条件文設定
発言  Blue  - 06/1/25(水) 9:30 -

引用なし
パスワード
   参考にどうぞ

ファイルの存在を調べる
http://www.officetanaka.net/excel/vba/file/file06.htm

ちなみに"Google"でキーワード「VBA ファイルの存在を確認する」で
見つかったサイトです。
これぐらいの作業はしてもらいたいです。

【34032】Re:名前を付けて保存に条件文設定
お礼  りょう  - 06/1/25(水) 11:59 -

引用なし
パスワード
   そうやって検索かければよかったんですね。。
ありがとうございました。やってみます!

【34068】Re:名前を付けて保存に条件文設定
質問  りょう  - 06/1/25(水) 19:00 -

引用なし
パスワード
   こんにちは
一度これでできたんですけど、そのあとからエラーになってしまいました。Dir関数の設定で、Range("H1")と同じファイル名があったらにしたいんですけどどうしていいかわかりません。.xlsだけではやはりだめなのでしょうか?アドバイスお願いしますm(_ _)m

Sub 送信()
Dim FileNM As String
FileNM = Dir("N:\test\依頼\.xls")
If FileNM = Workbooks("Book1.xls").Sheets("sheet1").Range("H1").Value Then
    MsgBox "同じ名前があります", vbInformation
    UserForm1.Show
  Else
    Workbooks("book1.xls").SaveAs Filename:= _
    "N:\test\依頼\" & Worksheets("Book1").Range("H1").Value & ".xls"
  End If

【34076】Re:名前を付けて保存に条件文設定
回答  Blue  - 06/1/25(水) 23:50 -

引用なし
パスワード
   Dim FileNM As String

FileNM = "N:\test\依頼\" & Workbooks("Book1.xls").Sheets("sheet1").Range("H1").Value & ".xls"

If Dir(FileNM) <> "" Then
  MsgBox "同じ名前があります", vbInformation
  UserForm1.Show
Else
  Workbooks("Book1.xls").SaveAs Filename:= FileNM
End If

ってことでなくて?

【34099】Re:名前を付けて保存に条件文設定
お礼  りょう  - 06/1/26(木) 11:45 -

引用なし
パスワード
    できました(^-^)感謝感謝です!!ありがとうございました。。

>Dim FileNM As String
>
>FileNM = "N:\test\依頼\" & Workbooks("Book1.xls").Sheets("sheet1").Range("H1").Value & ".xls"
>
>If Dir(FileNM) <> "" Then
>  MsgBox "同じ名前があります", vbInformation
>  UserForm1.Show
>Else
>  Workbooks("Book1.xls").SaveAs Filename:= FileNM
>End If
>
>ってことでなくて?

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