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

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

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

조회 수 5990 추천 수 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 51796
702 이미지,도형 등 안녕하세요! 처음으로 드리는 질문입니다! imagefile [1] [레벨:1]히어로 2013-11-16 2624
701 엑셀일반 함수 관련 질문 드립니다. file [2] [레벨:3]블루짱이 2012-01-13 2636
700 엑셀일반 [Ctrl + F] 찾기 관련 질문... [9] [레벨:4]나카타 2012-01-09 2639
699 안녕하세요 엑셀 기능 중에.. [레벨:1]prismlee 2011-01-07 2645
698 VLookup 표에서 해당 값 찾기 질문입니다. file [2] [레벨:3]rynoel 2012-06-26 2648
697 아별툴관련질문 Crtl+Shift+1 [2] [레벨:1]시준우 2013-06-03 2649
696 VBA 사용자 정의 폼 관련 file [2] [레벨:4]고수가되고파 2012-10-16 2650
695 차트에서 레이블의 숫자를 교체하는 법 imagefile [2] [레벨:4]쟈니 2011-07-14 2651
694 엑셀에서 혹시 이런 황당한 경험 있으신지요;; [3] [레벨:3]알알 2011-05-13 2680
693 컴퓨터를 바꿨습니다. 기존 데이터를 new pc로 옮겼는데 [3] [레벨:3]해바라기1 2011-06-09 2681
692 아별님, 데이터 통합방법을 모르겠습니다~ [2] [레벨:1]노브레인 2010-11-10 2687
691 아별툴관련질문 숫자서식 설정 단축키 [1] [레벨:1]시준우 2013-09-24 2688
690 IF수식 조건 함수문의 file [2] [레벨:3]블루짱이 2012-01-17 2695
689 엑셀일반 질문드려용// [3] [레벨:4]thoi 2013-04-02 2696
688 엑셀일반 아별님 도와주세요 file [2] [레벨:2]조기리 2013-07-31 2698
687 기타 만족도 조사 file [2] [레벨:3]빛의행운아 2012-07-09 2709
686 엑셀일반 정렬에 대해 문의 드립니다. file [2] [레벨:3]블루짱이 2013-10-18 2721
685 엑셀일반 데이터 유효성 검사 [1] [레벨:3]빛의행운아 2012-02-24 2728
684 엑셀수식 indirect 함수 질문 file [1] [레벨:5]눈물바다 2014-09-27 2736
683 VBA 안녕하세요 아별님! file [레벨:2]북곰 2013-11-07 2739