Excel VBA : 정의 된 날짜 범위에

Question

으로 처음으로 여기에 전기하는 방법으로 yahoo finance 기록 데이터를 추출 할 수 있습니까? 다음 문제에 도움이 필요합니다.

Excel VBA의 yahoo finance 웹 사이트 URL에서 과거 가격을 추출 중입니다. 티커, 시작 날짜 및 종료 날짜에 대한 변수 셀이 있습니다. 나는 나의 데이터를 얻기 위해 그 세포의 가치를 취하기 위해 URL을 변환했다.

문제점 : 매크로는 "시세"변수 셀에서 데이터를 추출하지만 "시작/종료 날짜"변수 셀에 정의한 날짜 범위를 제공하지 않습니다. 대신 전체 역사적인 데이터를 제공합니다.

원래 링크

http://chart.finance.yahoo.com/table.csv?s=NVDA&a=3&b=15&c=2012&d=3&e=15&f=2017&g=m&ignore=.csv 

변환 링크

http://chart.finance.yahoo.com/table.csv?s= " & Tick1 & " &a= " & smonth & " &b= " & sday & " &c= " & syear & " &d= " & emonth & " &e= " & eday & " &f= " & eyear & " &g=m&ignore=.csv 

---

Sub book1() 

'Macro Sheet 1 

'Variables 

Dim Tick1 As String 
Dim Tick2 As String 
Dim Tick3 As String 

Dim sday As Long 
Dim smonth As Long 
Dim syear As Long 
Dim eday As Long 
Dim emonth As Long 
Dim eyear As Long 

Dim newsheet As Object 

'Delete content 
With Sheets("Sheet1") 
.Range("A12:D200").Clear 
End With 

'Variable cells 

Tick1 = Range("b1") 
Tick2 = Range("c1") 
Tick3 = Range("d1") 

sday = Day(Range("b2")) 
smonth = Month(Range("b2")) - 1 
syear = Year(Range("b2")) 

eday = Day(Range("b3")) 
emonth = Month(Range("b3")) - 1 
eyear = Year(Range("b3")) 

'Extract data 
'Ticker 1 

With ActiveSheet.QueryTables.Add(Connection:= _ 
    "TEXT;http://chart.finance.yahoo.com/table.csv?s= " & Tick1 & " &a= " & smonth & " &b= " & sday & " &c= " & syear & " &d= " & emonth & " &e= " & eday & " &f= " & eyear & " &g=m&ignore=.csv", _ 
    Destination:=Range("$A$12")) 
    .Name = Tick1 
    .FieldNames = True 
    .RowNumbers = False 
    .FillAdjacentFormulas = False 
    .PreserveFormatting = True 
    .RefreshOnFileOpen = False 
    '.RefreshStyle = xlInsertDeleteCells 
    .RefreshStyle = xlOverwriteDeleteCells 
    .SavePassword = False 
    .SaveData = True 
    .AdjustColumnWidth = True 
    .RefreshPeriod = 0 
    .TextFilePromptOnRefresh = False 
    .TextFilePlatform = 850 
    .TextFileStartRow = 1 
    .TextFileParseType = xlDelimited 
    .TextFileTextQualifier = xlTextQualifierDoubleQuote 
    .TextFileConsecutiveDelimiter = False 
    .TextFileTabDelimiter = False 
    .TextFileSemicolonDelimiter = False 
    .TextFileCommaDelimiter = True 
    .TextFileSpaceDelimiter = False 
    .TextFileColumnDataTypes = Array(1, 9, 9, 9, 9, 9, 1) 
    .TextFileTrailingMinusNumbers = True 
    .Refresh BackgroundQuery:=False 

End With 

'Ticker 2 

With ActiveSheet.QueryTables.Add(Connection:= _ 
    "TEXT;http://chart.finance.yahoo.com/table.csv?s= " & Tick2 & " &a= " & smonth & " &b= " & sday & " &c= " & syear & " &d= " & emonth & " &e= " & eday & " &f= " & eyear & " &g=m&ignore=.csv", _ 
    Destination:=Range("$C$12")) 
    .Name = Tick2 
    .FieldNames = True 
    .RowNumbers = False 
    .FillAdjacentFormulas = False 
    .PreserveFormatting = True 
    .RefreshOnFileOpen = False 
    '.RefreshStyle = xlInsertDeleteCells 
    .RefreshStyle = xlOverwriteDeleteCells 
    .SavePassword = False 
    .SaveData = True 
    .AdjustColumnWidth = True 
    .RefreshPeriod = 0 
    .TextFilePromptOnRefresh = False 
    .TextFilePlatform = 850 
    .TextFileStartRow = 1 
    .TextFileParseType = xlDelimited 
    .TextFileTextQualifier = xlTextQualifierDoubleQuote 
    .TextFileConsecutiveDelimiter = False 
    .TextFileTabDelimiter = False 
    .TextFileSemicolonDelimiter = False 
    .TextFileCommaDelimiter = True 
    .TextFileSpaceDelimiter = False 
    .TextFileColumnDataTypes = Array(9, 9, 9, 9, 9, 9, 1) 
    .TextFileTrailingMinusNumbers = True 
    .Refresh BackgroundQuery:=False 

End With 

'Ticker 3 

With ActiveSheet.QueryTables.Add(Connection:= _ 
    "TEXT;http://chart.finance.yahoo.com/table.csv?s= " & Tick3 & " &a= " & smonth & " &b= " & sday & " &c= " & syear & " &d= " & emonth & " &e= " & eday & " &f= " & eyear & " &g=m&ignore=.csv", _ 
    Destination:=Range("$D$12")) 
    .Name = Tick3 
    .FieldNames = True 
    .RowNumbers = False 
    .FillAdjacentFormulas = False 
    .PreserveFormatting = True 
    .RefreshOnFileOpen = False 
    '.RefreshStyle = xlInsertDeleteCells 
    .RefreshStyle = xlOverwriteDeleteCells 
    .SavePassword = False 
    .SaveData = True 
    .AdjustColumnWidth = True 
    .RefreshPeriod = 0 
    .TextFilePromptOnRefresh = False 
    .TextFilePlatform = 850 
    .TextFileStartRow = 1 
    .TextFileParseType = xlDelimited 
    .TextFileTextQualifier = xlTextQualifierDoubleQuote 
    .TextFileConsecutiveDelimiter = False 
    .TextFileTabDelimiter = False 
    .TextFileSemicolonDelimiter = False 
    .TextFileCommaDelimiter = True 
    .TextFileSpaceDelimiter = False 
    .TextFileColumnDataTypes = Array(9, 9, 9, 9, 9, 9, 1) 
    .TextFileTrailingMinusNumbers = True 
    .Refresh BackgroundQuery:=False 

With Sheets("Sheet1") 
.Rows(62 & ":" & .Rows.Count).Delete 
End With 

'Copy on newsheet 

Set newsheet = ThisWorkbook.Sheets.Add 
    newsheet.Name = "Copie" 

ThisWorkbook.Sheets("Sheet1").Range("A12:D62").Copy 
    ThisWorkbook.Sheets("Copie").Range("A1").Select 
     ThisWorkbook.Sheets("Copie").Paste 

End With 

End Sub 

Answer 1

당신은 야후 금융의 연결을 확인하기 위해 매크로 사용을하는 URL 무엇을 확인해야합니다.

당신은 당신이 열려고하는 실제 링크를 볼 때이 줄을 추가하여 직전 ActiveSheet.QueryTables.Add와

MsgBox ("http://chart.finance.yahoo.com/table.csv?s= " & Tick1 & " &a= " & smonth & " &b= " & sday & " &c= " & syear & " &d= " & emonth & " &e= " & eday & " &f= " & eyear & " &g=m&ignore=.csv") 

, 당신은 당신이 많은이 실현 것이라고 할 수있다 실제로 필요하지 않은 공백 문자. 각 따옴표 앞뒤에 공백 문자가 있으므로 필요하지 않습니다. 변경하여 문제를 해결해야합니다.

올바른 라인이 있어야한다 : 당신이 당신의 시작/끝 날짜 월 마이너스 일을하는 이유 또한

"TEXT;http://chart.finance.yahoo.com/table.csv?s=" & Tick1 & "&a=" & smonth & "&b=" & sday & "&c=" & syear & "&d=" & emonth & "&e=" & eday & "&f=" & eyear & "&g=m&ignore=.csv", _ 

, 나는 확실하지 않다?

smonth = 월 (범위() "B2") - 1

는 월에 날짜를 사용하는 경우 제대로 작동하지 않습니다.