[[20030713123814]]　『ハイパーリンクについて』（moonmika）　ページの最後に飛ぶ

『ハイパーリンクについて』（moonmika）

初心者なので教えてください

たとえば
　http://chart.yahoo.co.jp/t?&s=8236&a=1&b=1&c=2000&d=1&e=1&f=2010&g=d&y=0&z=8236&x=.csv
これはyahoo株価時系列データのＵＲＬなのですが
８２３６の部分を任意に編集してＤＬできるマクロはどうすればよいのでしょうか？

 マクロの原型を書けば、
 Sub bbb()
 dt = Chr(34)
 para = "8236"
 para = InputBox("パラメータの入力", "Para", para)
 If para = "" Then
   Exit Sub
 End If
 Range("A5") = "=hyperlink(" & dt & _
  "http://chart.yahoo.co.jp/t?&s=" & para    
 & "&a=1&b=1&c=2000&d=1&e=1&f=2010&g=d&y=0&z=" & para & "&x=.csv" _
 & dt & "," & dt & para & dt & ")"
 End Sub

というようなものになるでしょう。しかし、

     =HYPERLINK("http://chart.yahoo.co.jp/t?&s=" & C10  
     & "&a=1&b=1&c=2000&d=1&e=1&f=2010&g=d&y=0&z="& C10 & "&x=.csv",C10)

という式をどこかのセルに入れておけば、上の式のばあいには、C10 に 8235 などを入れて、この数式があるセルをクリックする、でも、目的ははたせますよ。C10 の上のセルとかに、「ここに会社コードを入れて下さい」などと書けば、格好がついてきますよ。ぼくとしては、なまじマクロで書いてあるより、こういう形の方が好きです。まあ、人は好き好きですから…。

会社コードと会社名の対応表があれば、会社名も扱えますが、それはご自分でお考え下さい。（通りすがりの者）

通りすがりさんありがとうございます
一度試してみます＾＾
でためしたみたのですが＾＾；

=HYPERLINK("http://chart.yahoo.co.jp/t?&s=" & C10

     & "&a=1&b=1&c=2000&d=1&e=1&f=2010&g=d&y=0&z="& C10 & "&x=.csv",C10)
でリンク先へジャンプできるもですが・・・・
エクセルに取り込むのはどうしたらよいのでしょうか？？

初心者なのでどなたかよろしくお願いしまうす。

 Webクエリで取り込みたいとのことのようですので、マクロ記録したもの
 を参考に。
 （ramrun）

 Sub Macro1()
    para = "8236"
    para = InputBox("パラメータの入力", "Para", para)

    If para = "" Then
        Exit Sub
    End If

    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://chart.yahoo.co.jp/t?&s=" & para & "&a=1&b=1&c=2000&d=1&e=1&f=2010&g=d&y=0&z=" & para & "&x=.csv" _
        , Destination:=Range("A1"))
        .Name = "t?&s=" & para & "&a=1&b=1&c=2000&d=1&e=1&f=2010&g=d&y=0&z=" & para & "&x="
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlOverwriteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "10"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
 End Sub

ありがとうございました（＾＾）
思ったとおりです～～～～

今後ともよろしくお願いします。

 こちら事務局です、ニックネームを変更しました。
 （kazu）2003/10/26

コメント返信：

[ 一覧(最新更新順) ]

[[20030713123814]] 『ハイパーリンクについて』（moonmika） ページの最後に飛ぶ

[[20030713123814]]　『ハイパーリンクについて』（moonmika）　ページの最後に飛ぶ