人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

エクセルVBAについて質問です。

A列にあるすべてのURLについて、リンク先のファイルをCドライブ内の「文書(C:\文書)」というフォルダに保存するというマクロを作成してください。

標準モジュールそのまま貼り付ければそのまま使えるという状態でご回答くださいますようお願いします。

●質問者: taroemon
●カテゴリ:コンピュータ
✍キーワード:URL VBA エクセル ドライブ ファイル
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● arhbwastrh
●35ポイント

マクロの勉強のためでしょうか?

リンク先を保存するのは、VBAでは少し難しいかも知れません。(私はやり方を知りません。できるかどうかも知りません)

もし単にリンク先を保存したいなら、そのエクセルデータをテキスト形式で保存して、その後に拡張子を.lstに変更します。

その後、http://www.vector.co.jp/soft/win95/net/se263613.html

このソフトを使ってダウンロードすることをお勧めします。


2 ● arhbwastrh
●65ポイント

すみません、よく考えてみたら簡単でした 笑

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Sub kaitou()
 
 
 Dim FILENAME As String
 Dim Y As Long
 Dim KA As String
 Dim KB As String
 
 Y = 1
 KA = 0
 
Do While Cells(Y, 1).Value <> ""
 URL = Cells(Y, 1).Value
 KA = Right(Cells(Y, 1).Value, 4)
 KB = KA
 KB = Left(KB, 1)
 If KB <> "." Then
 FILENAME = "c:\文書\" & Y & "." & KA
 Else
 FILENAME = "c:\文書\" & Y & KA
 End If
 RE = URLDownloadToFile(0, URL, FILENAME, 0, 0)
 Y = Y + 1
Loop
End Sub


http://q.hatena.ne.jp/answer

◎質問者からの返答

ご回答ありがとうございます。

うまくできました。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ