Ｐａｇｅ 403 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼ファイル名に変数にしたい ｈａｎａ 02/11/21(木) 14:37 ┣Re:ファイル名に変数にしたい つん 02/11/21(木) 15:19 ┃ ┗ふ〜。 Jaka 02/11/21(木) 15:28 ┣Re:ファイル名に変数にしたい Jaka 02/11/21(木) 15:19 ┃ ┗Re:ファイル名に変数にしたい つん 02/11/21(木) 15:23 ┃ ┗2人して誤ってるぅ〜。 Jaka 02/11/21(木) 15:42 ┃ ┗↑ばかですね！「謝る」なのに．．．。 Jaka 02/11/21(木) 17:35 ┗Re:ファイル名に変数にしたい ｈａｎａ 02/11/28(木) 13:55 ─────────────────────────────────────── ■題名 ： ファイル名に変数にしたい ■名前 ： ｈａｎａ ■日付 ： 02/11/21(木) 14:37 -------------------------------------------------------------------------
| [名前を付けて保存] にあたる SaveAsメソッドで ファイルの名前を表す文字列を変数にしたいのですが 文字列を指定しないと、どうしてもエラーになってしまいます。 あるセルに入っている文字列をファイル名にしたいのですが 分かる方がいらっしゃればお願いします。 |
| ｈａｎａ さん、こんにちは >[名前を付けて保存] にあたる SaveAsメソッドで >ファイルの名前を表す文字列を変数にしたいのですが >文字列を指定しないと、どうしてもエラーになってしまいます。 >あるセルに入っている文字列をファイル名にしたいのですが こんな感じかな？ Sub test2() Dim strWord As String With ThisWorkbook strWord = "C:\WINDOWS\ﾃﾞｽｸﾄｯﾌﾟ\" & .Worksheets("Sheet1").Range("a1").Value & ".xls" .SaveAs strWord End With End Sub デスクトップに保存してみました。 お試しくださいませ。 |
| こんにちは、つんさん すみません。かぶってしまいました。 私、どんまい。 |
| ▼ｈａｎａ さん： >[名前を付けて保存] にあたる SaveAsメソッドで >ファイルの名前を表す文字列を変数にしたいのですが >文字列を指定しないと、どうしてもエラーになってしまいます。 > >あるセルに入っている文字列をファイル名にしたいのですが > >分かる方がいらっしゃればお願いします。 こんにちは。 どう言う事なのか良く解りませんが．．。 セルに入っている文字の中に、ファイル名としては使ってはいけないものが含まれていませんか？ 例えば、 A1に「C:\windows\ﾃﾞｽｸﾄｯﾌﾟ\ほほほ.xls」と、入っていれば、 ActiveWorkbook.SaveAs FileName:=Range("A1").Value で、済みます。 もしかしてパスが入っていないんですか？ A1に「ほほほ.xls」とだけ入っていて、同フォルダに保存するなら、 ActiveWorkbook.SaveAs FileName:=ThisWorkbook.Path & "\" & Range("A1").Value |
| Jaka さん、こんにちは またバッティングしちゃいました。すんません。 >例えば、 >A1に「C:\windows\ﾃﾞｽｸﾄｯﾌﾟ\ほほほ.xls」と、入っていれば、 ここで、無茶びっくりしたわ。 私も、A1に「ほほほ」と入れてテストしてたん。 もちろん、保存先はデスクトップ♪ 一瞬、見られてたんやろか？思いました。 僕ら気ぃ合いますなぁ(笑) |
| ▼つん さん： >Jaka さん、こんにちは > >またバッティングしちゃいました。すんません。 > >>例えば、 >>A1に「C:\windows\ﾃﾞｽｸﾄｯﾌﾟ\ほほほ.xls」と、入っていれば、 > >ここで、無茶びっくりしたわ。 >私も、A1に「ほほほ」と入れてテストしてたん。 >もちろん、保存先はデスクトップ♪ >一瞬、見られてたんやろか？思いました。 > >僕ら気ぃ合いますなぁ(笑) おほほっ。 もしかしたら、知能が同じなのかも。 私と知能が同じなら、危ないですよ。 |
| いろんなこと書き込んじゃって、ｈａｎａさんごめんなさい。 |
| つんさん、JaKaさん ありがとうございました。 つんさんの書いてくれたもので解決しました。 また何かあったらお願いしますね。 |