이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
글 수 822
웹쿼리는 할 줄 아는데...
문제가...
http://www.kofiabond.or.kr/SGPG/SGPG_mtrs_1.asp?comp=KIS&start_date=20091215&gosi=mean
여기서 start_date를 항상 오늘날짜
예를들어 12월 16일엔 20091216으로 해서 긁어와야 하구요
그 다음날엔 20091217로 긁어 와야 하는데...
방법이 있을 거 같은데...
궁금합니다.
답변 좀^^
즐건 하루 되세요
댓글 '6'
http://www.kofiabond.or.kr/SGPG/SGPG_mtrs_1.asp?start_date=format(DateAdd("D", -1, Date), "yyyymmdd")
새 웹커리에서 주소에다 위에 거 입력하면 되는거죠??
근데 이상한 결과가 나오네요 ㅠㅠ
조회일에 format(DateAdd(가 들어가버리네요 ㅠㅠ
http://www.kofiabond.or.kr/SGPG/SGPG_mtrs_1.asp?start_date=20091215
같은 결과가 나와야 하는데 말입니다.
죄송하지만 확인 좀 부탁드리면 안될까요
이거 해결하고 나면 엑셀하고 VBA 공부 좀 해야겠네요^^
정말 감사합니다
아래 코드를 사용해보세요.
Excel 2003, 2007, 2010 모두에서 테스트해본 결과 모두 잘 돌아갑니다.
Sub webQueryKofiabond() Dim strURL As String Dim strTargetDate As String strTargetDate = Format(DateAdd("D", -1, Date), "yyyymmdd") strURL = "URL;http://www.kofiabond.or.kr/SGPG/SGPG_mtrs_1.asp?start_date=" strURL = strURL & strTargetDate With ActiveSheet.QueryTables.Add(Connection:=strURL, Destination:=Range("A1")) .Name = "SGPG_mtrs_1.asp?start_date=" & strTargetDate .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 = """tDownload""" .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = True .WebSingleBlockTextImport = False .WebDisableDateRecognition = False .WebDisableRedirections = False .Refresh BackgroundQuery:=False End With End Sub |
웝쿼리를 던질때, URL에 "http://ww...어쩌구&start_date=" & format(Date,"yyyymmdd") & "나머지주소" 라는 식으로 하시면 될 겁니다.
Date는 오늘 날짜를 의미합니다.
참고로, 제 홈페이지에서 "쿼리"로 검색해보면, 아래의 게시물을 찾을 수 있을겁니다.
아래 게시물을 참고해보세요.
http://www.abyul.com/zbxe/15301