No.4ベストアンサー
- 回答日時:
スミマセン,随分間の空いたレスポンスでしたので,こちらも見落としていました。
>ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"I:\H23年度\マレットゴルフ 成績表.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
ようやっと,ご利用のエクセルのバージョンを含めてそもそもどうやってPDFを保存しているのかの情報が出てきましたね。
この流れで行うなら
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=thisworkbook.path & "\マレットゴルフ 成績表.pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
といった具合になります。
ドライブレターだけ参照して全く違うフォルダに保存したい場合は,前述回答を参考にちょい直してください。
No.3
- 回答日時:
>今回使用するエクセルのファイルのあるドライブにPDFを書き出したいのですが
失礼しました。
既に回答がでていますよね
ThisWorkbook.Path
で、そのでエクセルの保存されているドライブとパスが文字列で得られます。
もし、ドライブ名だけであれば、最初の2文字を取り出してみてください。
使用するエクセルのファイルに
Sub ボタン1_Click()
Range("A1").Value = ThisWorkbook.Path
Range("A2").Value = Left(ThisWorkbook.Path, 2)
End Sub
で試してみてください。
この回答への補足
確認したドライブをどの様に反映したら良いのでしょうか
例えば、ファイルが、gドライブにあるということが解ったとして
ドライブ先 g:を 変数なんかに入れて ファイルのあるusbに入れたいのです 変数:drに g をいれ dr:abcde.pdf みたいにしたいのですが
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"I:\H23年度\マレットゴルフ 成績表.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
の I:をどの様にすればよいのでしょうか
宜しくお願い致します
No.2
- 回答日時:
のあたりが参考になると思います。
VBエディターを開いて
ツール=>参照 から Microsoft Scripting Runtime にチェックして
Sub ボタン1_Click()
Dim myFileSystem As New Scripting.FileSystemObject
Dim myDrive As Scripting.Drive
Dim myDriveType() As Variant
'ドライブの種類を配列に設定しておく
myDriveType = Array("不明", "リムーバブル ディスク", _
"ハードディスク", "ネットワークドライブ", "CD-ROM", "RAMディスク")
i = 1
'すべてのドライブの名前と種類を表示する
For Each myDrive In myFileSystem.Drives
Range("C" & i).Value = myDrive.DriveLetter & _
":" & myDriveType(myDrive.DriveType)
i = i + 1
Next
End Sub
とでもすれば、パソコンにつながっているドライブの一覧が得られます。
その結果を利用してみてください。
但し、USBが2つあった場合などは、それなりの運用が必要になります。
この回答への補足
説明が悪くて済みませんでした
usbドライブのドライブ番号が知りたいのではなくて
今回使用するエクセルのファイルのあるドライブにPDFを書き出したいのですが
エクセルデータのドライブを読み出して、変数かに入れ PDFを書き出すドライブ指定に使いたいのですが
宜しくお願い致します
No.1
- 回答日時:
>エクセルデータは usbで使用しておりpcによりドライブが変わってしまう
thisworkbook.path
あるいは
left(thisworkbook.path, 1)
などで,ドライブレターや保存先を確認できます。
この回答への補足
確認したドライブをどの様に反映したら良いのでしょうか
例えば、ファイルが、gドライブにあるということが解ったとして
ドライブ先 g:を 変数なんかに入れて ファイルのあるusbに入れたいのです 変数:drに g をいれ dr:abcde.pdf みたいにしたいのですが
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"I:\H23年度\マレットゴルフ 成績表.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
の I:をどの様にすればよいのでしょうか
宜しくお願い致します
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセル2019でPDFファイル名に枝番号をつけたい。 アクティブワークシートを印刷した後の処理とし 4 2023/06/06 21:00
- Visual Basic(VBA) エクセルのマクロについて教えてください マクロを実行して 作業フォルダの中にある PDFファイル名を 3 2023/07/01 15:16
- 財務・会計・経理 青色申告での帳票保存について 2 2023/02/23 10:53
- Excel(エクセル) PDFファイルに日付を名前にして保存したい。 エクセル2019でワークシートに請求書のフォームを作り 2 2023/05/27 11:13
- PDF PDF印刷後に「変更を保存しますか?」と訊かれる 2 2023/04/28 17:35
- Excel(エクセル) セルによって印刷するシートを変える方法 EXCEL-VBA 2 2022/08/01 20:48
- 会計ソフト・業務用ソフト タックインデックスシール 2 2023/04/28 05:14
- Excel(エクセル) エクセルでキーリストからデータを取り出して1枚1枚印刷するには? 11 2022/06/27 09:52
- Excel(エクセル) 【マクロ】プリントスクリーンした画像をエクセルに貼付して印刷したい 6 2022/11/30 20:11
- Excel(エクセル) マクロでPDFを印刷する方法 3 2023/02/15 09:40
このQ&Aを見た人はこんなQ&Aも見ています
-
賃貸で可能な古民家風レトロな部屋作りのコツ!改めて知る畳の高い機能性と魅力も紹介
畳の部屋を雰囲気のよい部屋に仕上げたい!賃貸住宅でもできる古民家風のレトロな部屋作りのコツを伺った。
-
マクロ、PDFを任意のフォルダへ保存
Excel(エクセル)
-
【VBA】PDF出力に任意のファイル名前を付ける方法
Excel(エクセル)
-
エクセルをPDFで保存し、ファイル名はA1セルを参照するVBAの記述を教えてください。
Excel(エクセル)
-
-
4
エクセル マクロ 名前を付けて保存 PDF保存先指定 ファイル名任意+日付
Excel(エクセル)
-
5
Excelの選択範囲を特定のセル値をファイル名にしてPDFで保存する
Excel(エクセル)
-
6
【Excel】指定したセルの名前でPDFを保存する【VBA】
Visual Basic(VBA)
-
7
VBA 新規ファイルを元ファイルと同じ場所に保存する方法
Excel(エクセル)
-
8
Excelで指定したフォルダに保存するマクロ
Excel(エクセル)
-
9
エクセル マクロを使って同じフォルダ内にPDF保存したい。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ドライブ中、彼女が俺のあそこ...
-
ふたりで夜ドライブ
-
縦置きパソコンでシングルCD...
-
CD-RやCD-RWを裏表逆に入れたら...
-
USBメモリーをPCにさします。 U...
-
CDドライブが勝手に外に出てくる
-
CDプレーヤーの製作
-
特定のCDを読み込まない
-
同じ大学の男子がストーリーで ...
-
DVDの内側の丸い部分が割れた
-
tx2513という東芝のパソコンを...
-
win10 でハードディスクのレジ...
-
外付けHDDがDからEに変わってし...
-
ドライブしたい ドライブ行きた...
-
付き合っていない女性とのドラ...
-
AnyDVD
-
I-O DATAの外付けDVDドライブに...
-
DVDドライブを交換したらパソコ...
-
女性って嫌な男とはプライベー...
-
SSDをCドライブにするにあたっ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ドライブ中、彼女が俺のあそこ...
-
win10 でハードディスクのレジ...
-
ノートパソコンの取り出しボタ...
-
ドライブに誘っても来てくれない
-
パソコンにHドライブを表示する...
-
DVD RWドライブではCD Rは使え...
-
DVDの内側の丸い部分が割れた
-
Gmailを使った感想を教えて下さ...
-
ふたりで夜ドライブ
-
恋人とデートに行くなら、どこ...
-
DVDドライブがカタカタいうので...
-
CDドライブが勝手に外に出てくる
-
DVDドライブ自体にウィルスが感...
-
GドライブがHドライブになって...
-
DVD-RW、フォルダーは空ですと...
-
CD-RやCD-RWを裏表逆に入れたら...
-
USBメモリのドライブ名を取得し...
-
スロットインドライブのイジェ...
-
8cmCDはパソコンでも再生...
-
PCに8センチCDを取り込むには、...
おすすめ情報