- ベストアンサー
excelでWebページ保存のマクロについて
マクロでWebページ保存をボタン1つでできるようにしたのですが、ファイルの場所を変えると、ディレクトリが違うので使えません。 visual basicの画面で、ディレクトリが絶対参照になっている為かと思うのですが、（このようになります。Filename = "C:\WINDOWS\デスクトップ\ファイル名.html"） 相対参照にする方法はあるでしょうか。
- ayaaya5151
- お礼率93% (29/31)
- オフィス系ソフト
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
シートにコマンドボタンを貼りつけ、クリックイベントに Private Sub CommandButton1_Click() filenam = Application.GetSaveAsFilename _ (filefilter:="Microsoft excel ブック (*.xls),*.xls") MsgBox filenam ActiveWorkbook.SaveAs Filename:=filenam, FileFormat:= _ xlHtml, ReadOnlyRecommended:=False, CreateBackup:=False End Sub でどうでしょうか。
関連するQ&A
- excelのマクロについて
“１枚だけ印刷する指示を与える”など、簡単なマクロを作っています。新しいマクロの記録をするときに、画面上に「記録終了」と「相対参照」のの指示ボタンが出てきますが、そのボタンを消してしまい、以後出そうと思っても見つかりません。 (1)どうやったら出せるのでしょうか？ (2)またそのボタンがないときに「相対参照」のマクロを作りたいときはどうするのでしょうか？ (3)全てのマクロを削除し、ファイルを開くと、以前マクロを作ったときの警告文（「有効にしますか？」）がでます。完全に削除するのはどうしたらよいのでしょうか？ (4)マクロ作成時の保存先はどこが最適なのでしょうか？ 完全に理解せずに使っているのでご存知の方、教えてください。
- 締切済み
- オフィス系ソフト
- 「Webページ、完全」で、ダウンロードできません
html)のファイルを、IEで ファイル→名前をつけて保存 ファイルの種類のところを「Webページ、完全」 として保存したのですが、そのページを開くと C:\WINDOWS\デスクトップ\ホルダ名\○○○.htm などと表示され、見ることができません。 ダウンロード時に、回線がストップしているようです。 助けてください。お願いします
- ベストアンサー
- オフィス系ソフト
- 保存したwebページ・・。
早速質問なのですが、ファイル→名前を付けて保存でwebページを保存できますよね？？保存したwebページをオフラインで後でゆっくり見ようと思い、デスクトップにある保存したwebページのアイコンをクリックすると何故か勝手にダイヤルアップの接続をし始めるときがあるんですよ～。しないときもあるのですが、どういうことなのでしょうか？？教えてください。お願いします。
- ベストアンサー
- Windows 95・98
- エクセル：シートを保存するマクロ
あるエクセルファイルFile.xls内に、４つのシートSheet1,Sheet2,Sheet3,Sheet4があるとして、 ４つのシートを個別にcsvファイルとして保存するようなマクロを作りたいです。 ▼ソースです （ここまでのコードで、Pathに保存先のディレクトリ名を取得する部分があるとお考えください） Filename = "Sheet1" '保存するシート名は、Sheet1～4 GoSub Save1 Filename = "Sheet2" GoSub Save1 Filename = "Sheet3" GoSub Save1 Filename = "Sheet4" GoSub Save1 '保存完了後は、File.xls内Sheet1のCells(4, 1)にカーソルを配置。 Sheets("Sheet1").Select Cells(4, 1).Select Exit Sub Save1: Sheets(Filename).Select fname = Path & "\" & Filename & ".csv" ActiveWorkbook.SaveAs Filename:=fname, FileFormat:=xlCSV, CreateBackup:=False Return End Sub 以上のソースで実行すると、 指定したディレクトリにsheet1.csv、sheet2.csv、sheet3.csv、sheet4.csvの４ファイルができます。 ここまでは問題ないのですが、 マクロを実行後、Sheet4.csv(最後に保存したファイル)が開かれた状態になってしまいます。 しかも、ファイル名はSheet4.csvなのに、シートSheet1～4を持っている状態です。 普通にSheet4.csvファイルを開くと、シートはSheet4しかありません。 状態が伝わるでしょうか？ File.xlsのマクロを実行しているので、実行完了後もFile.xlsを開いておきたいのですが、 どのような記述を加えればよいでしょうか？ マクロ(VBA)は使い始めたばかりなので説明されても理解できないかもしれませんが、 できればよろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- WEBページの保存について
WEBページの保存について質問させて戴きます。 私が日頃よく閲覧しているWEBサイトが、もうすぐ閉鎖される事になりました。 閉鎖前にWEBページを保存しておきたいと思うのですが、ページの背景にある画像ファイルも含めて保存する方法はあるでしょうか？ 以前も同じような事があり、保存してみた事があったのですが、保存する際、保存形式を「WEBページ、完全」にすると背景の画像が保存されないWEBページがありました。「WEBアーカイブ、単一のファイル」を選ぶと、背景の画像も見る事ができたのですが、WEB上からこのページが削除されてしまってから保存しておいたファイルを開くと、背景の画像は消えてしまっていました。 恐らく、背景はWEB上の画像URLを参照するような形になっていたのだろうと思うのですが、何とかWEB上からページが完全削除されてしまってからも背景を含めて見る方法はないものでしょうか。 今度も試しに保存してみましたが、以前の時と同じでした。恐らく、閉鎖後は背景を見る事ができなくなるのだと思います。とても綺麗な背景なので、失くなってページが味気無くなってしまうのが残念でなりません。 パソコンは全くの素人なので、何かいい方法はないものかと無駄に悩んでいます。どなたかお知恵を拝借できないでしょうか。どうぞよろしくお願いいたします。
- ベストアンサー
- ブラウザ
- webページの保存に教えてください
webページの保存に教えてください HPを見ていて、あとでまた見たいと思った場合、 ファイルから名前を付けてデスクトップに保存しています。 でそのHPに飛ぶようにしていますが HPによっては保存できないものもあります。 ネット環境のない外出先でもそのHPが見たいため、 このような方法でデスクトップに保存しているのですが 保存できないページも保存できるよう何か方法があれば教えてください。 よろしくお願いします。
- ベストアンサー
- ネットトラブル
- エクセルのWebページの保存について。
このような問題にひっかかってます。 まず、ブック全体をDドライブの「フォルダA」にWebページとして名前「uriage1」として保存してください。次にこのファイル「uriage1」を「売上報告」というタイトルをつけて上書き保存してください。 ここでひっかかっているのは、次に以下のところです。 Webページとして保存しているファイル「uriage1」をさらのどうやってWebページとして保存したらよいのでしょうか。 第一、ファイル⇒Webページとして保存がでたきません。
- ベストアンサー
- オフィス系ソフト
- ローカル⇒ネットワーク移動でマクロが動かなくなった
いまエクセルのマクロを組んでいます。 ローカル（マイドキュメント）に保存して作業していたファイルを、完成後に会社の共有ネットワークフォルダに移したところ、マクロがうまく作動しなくなりました。 「（参照先の）ファイルが見つかりません。ファイル名およびファイルの保存場所が正しいかどうかを確認してください」 というエラーが出ます。 ボタンを押したら画像が出てくるマクロを組んでいて、ファイルの定義を以下のようにしてあるのですが、どのように修正すればよいのでしょうか？ ChDir ThisWorkbook.Path Workbooks.Open filename:="aaa.xls" 絶対パスを相対パスにすればよい、というような記述を本で見たのですが、具体的に記述をどう変更すればよいのかわかりません。 初歩的な質問かもしれませんが、初心者なものでどうぞよろしくお願いします。
- 締切済み
- オフィス系ソフト
- エクセルマクロ
入力したワークシートを 新しいブックにコピーして保存するマクロを作成しました。 ただ下記の様に保管すると、 数式もそのまま元のエクセルファイルの数式を参照してしまいます。 下記のマクロをあまり変更しないで、 値貼付け（もしくは値貼付けしながら、新しいブックへコピー） するにはどの様に変更するといいでしょうか？ よろしくお願いします。 'Sub newfilesave() Sheets("Sheet1").Copy '名前を付け、ファイル形式も決めてデスクトップに日付を付けて保存する。。 'ActiveWorkbook.SaveAs _ ' Filename:="C:\Users\xxxxx\Desktop\" & Format(Now(), "yyyymmdd_hhmm"), _ ' FileFormat:=xlOpenXMLWorkbook 'End Sub
- ベストアンサー
- Excel（エクセル）
お礼
アドバイス有難うございます。web保存については下記でカレントディレクトリに保存できるようになりました。 Sub prg01() Columns("A:O").Select With ActiveWorkbook.PublishObjects("Book1_29592") .HtmlType = xlHtmlStatic .Filename = ThisWorkbook.Path & "\ファイル名.html" .Publish (False) End With Range("A1").Select End Sub