1. FAQ
  2. 엑셀(Excel)
  3. AfterEffects
  4. Premiere
  5. Photoshop
  6. ETC

이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.

엑셀 웹 쿼리 질문드립니다.

조회 수 7370 추천 수 0 2009.12.16 10:18:05

웹쿼리는 할 줄 아는데...

 

문제가...

 

http://www.kofiabond.or.kr/SGPG/SGPG_mtrs_1.asp?comp=KIS&start_date=20091215&gosi=mean

 

여기서 start_date를 항상 오늘날짜

 

예를들어 12월 16일엔 20091216으로 해서 긁어와야 하구요

 

그 다음날엔 20091217로 긁어 와야 하는데...

 

방법이 있을 거 같은데...

 

궁금합니다.

 

답변 좀^^

 

즐건 하루 되세요


댓글 '6'

profile

[레벨:30]아별

2009.12.16 15:57:27
*.75.228.207

웝쿼리를 던질때, URL에 "http://ww...어쩌&start_date=" & format(Date,"yyyymmdd") & "나머지주소" 라는 식으로 하시면 될 겁니다.

Date는 오늘 날짜를 의미합니다.

 

참고로, 제 홈페이지에서 "쿼리"로 검색해보면, 아래의 게시물을 찾을 수 있을겁니다.

아래 게시물을 참고해보세요.

http://www.abyul.com/zbxe/15301

[레벨:1]페니

2009.12.16 17:14:22
*.255.207.104

감사합니다^^

아별님... 혹시 어제 날짜를 하려면 어떻게 해야 하나요??

date-1 하니까 안되던데요. 문의드립니다^^

그냥 -1하면 하긴... 1일에서 30일이나 31일로 자동으로 갈 수 있는지도 모르겠네요

답변 좀 부탁드립니다.

 

그리고 정말 감사합니다

profile

[레벨:30]아별

2009.12.16 17:21:07
*.75.228.246

DateAdd() 함수를 사용하면 됩니다.

Format(DateAdd("D", -1, Date), "yyyymmdd")

 

그리고.. 별 말씀을요.. ^-^;

 

아참.. 참고로..

오늘을 의미하는 Date 대신에 아래와 같은 것도 활용할 일이 있을지 모르겠네요.

전월 말일 : DateSerial(Year(Date), Month(Date), 0)

당월 말일 : DateSerial(Year(Date), Month(Date) + 1, 0)

 

도움이 되셨기를..

[레벨:1]페니

2009.12.16 18:02:36
*.255.207.104

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 공부 좀 해야겠네요^^

정말 감사합니다

profile

[레벨:30]아별

2009.12.16 18:19:41
*.75.228.207

아래 코드를 사용해보세요.

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

[레벨:1]페니

2009.12.16 18:52:12
*.255.207.104

정말 감사합니다

잘 되네요^^

문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜 조회 수sort
공지 공지 [공지] 아별닷컴의 엑셀 질문방 폐쇄합니다. 카페 질문방 이용하세요.. imagefile [레벨:30]아별 2015-04-23 138220
142 셀서식(표시형식) 엑셀 중복표시 imagefile [1] [레벨:2]딸꾹질쟁이 2013-04-16 8111
141 VBA 병합효과 file [3] [레벨:4]고수가되고파 2012-11-22 8112
140 엑셀일반 예전에 해결해준 공휴일 조건부서식에 대한 재질문 등 file [2] [레벨:4]성투은자 2012-12-13 8124
139 pivot 기본 피벗 기능 중 설문데이터 취합 [1] [레벨:3]읍내꽃미남 2013-01-28 8168
138 병합된 셀 정렬하기 [4] [레벨:1]최선으로 2009-07-09 8177
137 제 업무 좀 도와주세요...피벗테이블 중복항목 제외 데이터 개수구하기 file [4] [레벨:3]gsLee 2011-01-21 8197
136 VBA vba로 서식정렬 [4] [레벨:2]정용규 2015-01-03 8236
135 셀계산시간이 너무 많이 걸립니다. [4] [레벨:1]kangdongku 2009-07-21 8254
134 아별툴관련질문 빠른실행 도구모음 초기화 [3] [레벨:1]Pillias 2013-01-08 8256
133 엑셀일반 저.. 혹 이기능에 대한 단축키가 있나요?? imagefile [3] [레벨:2]큰아빠에요 2012-11-25 8261
132 VLookup 엑셀에서 특정내용 참조하여 지정된 셀의 내용 교체 방법 imagefile [레벨:1]한스7 2014-03-16 8264
131 VBA 엑셀 메모의 배경으로 삽입한 이미지 추출하기 file [레벨:2]이런젬젬 2015-01-06 8384
130 체크박스 클릭 시 자동 자료 입력관련 문의입니다. file [1] 시오 2010-03-22 8419
129 왼쪽 정렬... 줄간격 질문 드립니다. file [2] [레벨:2]qpfmdpfm 2010-04-23 8455
128 VBA 몇가지 질문들 [8] [레벨:2]정용규 2015-01-13 8455
127 한가지 더 질문!! 피벗테이블의 자동 데이터 영역 설정은??;; [4] [레벨:3]harcz 2010-04-27 8471
126 석차 등급을 구하는데요 file [레벨:4]쟈니 2010-05-31 8479
125 조건값에따라 행추가(복사) 작업 file [2] [레벨:1]땡칠이 2010-04-26 8480
124 피벗테이블 엑신님~한번더 헬프요청들립니다. file [1] [레벨:1]kkabo 2009-07-27 8503
123 석차구하기 file [1] [레벨:4]쟈니 2010-03-11 8517