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


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

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

回答の条件
  • URL必須
  • 1人2回まで
  • 登録:2007/09/26 17:13:48
  • 終了:2007/09/27 07:15:33

回答(2件)

id:arhbwastrh No.1

arhbwastrh回答回数447ベストアンサー獲得回数232007/09/27 02:15:41

ポイント35pt

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

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

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

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

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

id:arhbwastrh No.2

arhbwastrh回答回数447ベストアンサー獲得回数232007/09/27 03:16:47

ポイント65pt

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

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

id:taroemon

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

うまくできました。

2007/09/27 07:14:46

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません