私はスプレッドシートに製品名のリストを持っています。私がしたいのは、(1)これらの製品名を5行ずつ分離し、(2)特定のウェブサイト(clinicaltrials.gov)からデータを抽出し、各スプレッドシートの下の行に挿入するウェブサイト検索を設定することです。Excelでウェブサイトを検索
(2)は、私にとって今のところはるかに重要で挑戦的です。私はすべての製品名を調べるループを実行しなければならないことを知っています。しかし、私がループに焦点を当てる前に、私はウェブサイトの検索を実行するコードを書く方法を理解する助けが必要です。
私が受け取ったいくつかの助け次のような
="URL;http://clinicaltrials.gov/ct2/show?term="& [Cell Reference to Drug name here] &"&rank=1"
と出力4行:は
次のExcel VBAコードsnipetはの形で構築されたURLを持つセルがかかります
Estimated Enrollment: 40
Study Start Date: Jan-11
Estimated Study Completion Date: Apr-12
Estimated Primary Completion Date: April 2012 (Final data collection date for primary outcome measure)
With ActiveSheet.QueryTables.Add(Connection:= _ ActiveCell.Text, Destination:=Cells(ActiveCell.Row, ActiveCell.Column + 1)) .Name = "Clinical Trials" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .WebSelectionType = xlSpecifiedTables .WebFormatting = xlWebFormattingNone .WebTables = "12" .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = True .WebSingleBlockTextImport = False .WebDisableDateRecognition = False .WebDisableRedirections = False .Refresh BackgroundQuery:=False End With
質問の結果が表示されるように、サンプルの薬剤名を投稿できますか? – JimmyPena