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

엑셀에 대해서 궁금한 것이 있으시면 마음껏 질문해주세요.

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

글 수 822

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

조회 수 6127 추천 수 0 2009.12.16 10:18:05
[레벨:1]페니 *.130.73.75

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

 

문제가...

 

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

 

여기서 start_date를 항상 오늘날짜

 

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

 

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

 

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

 

궁금합니다.

 

답변 좀^^

 

즐건 하루 되세요

이 게시물을...
엮인글 :
http://www.abyul.com/zbxe/71954/eff/trackback
목록

댓글 '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 63302
142 VBA .Find Find 함수를 이용한 검색 관련 질문 [1] [레벨:1]YeonG 2012-08-28 2992
141 다량데이터 일부분씩 저장하기 [1] [레벨:1]해적 2010-12-06 2989
140 VBA 인위적 계산 셀 찾기 file [2] [레벨:4]고수가되고파 2012-10-18 2986
139 특정 text를 포함한 데이터 나열하기!! (다시 질문합니다 파일포함) imagefile [4] [레벨:2]matroos 2011-08-01 2977
138 [문의] 아별설치시 엑셀 충돌현상 imagefile [3] [레벨:2]젤코 2011-02-18 2975
137 엑셀일반 엑셀 링크에서의 문제입니다. [3] [레벨:0]주주아빠 2013-06-07 2969
136 2007사용자 메뉴 imagefile [1] [레벨:1]털복숭이 2011-04-06 2969
135 자동 필터의 기능을 사용하여 제작한 메크로를 대체 가능한가요? file [2] [레벨:1]이엑셀 2010-11-12 2968
134 도와주세요 엑셀님들ㅠㅠ [1] [레벨:1]언용구 2013-04-03 2967
133 아별툴관련질문 아별툴 오류! imagefile [1] [레벨:1]namoman 2014-06-11 2954
132 엑셀일반 질문드려용// [3] [레벨:4]thoi 2013-04-02 2939
131 자동 표 테두리 설정 확인 창 - 안뜨게 하는 법 궁금합니다. [2] [레벨:2]냐응이 2011-01-06 2938
130 엑셀일반 액셀 표시 질문이요~~ imagefile [2] [레벨:2]beherewith 2013-10-08 2929
129 질문있습니다. file [5] [레벨:5]정화 2011-05-25 2913
128 업데이트 이후 엑셀파일간 이동이 안되네요 [1] 매니아 2013-01-14 2911
127 IF수식 조건 함수문의 file [2] [레벨:3]블루짱이 2012-01-17 2902
126 VBA 데이터 수집 질문_01 입니다. file [2] [레벨:1]아우릭 2012-03-20 2899
125 기타 만족도 조사 file [2] [레벨:3]빛의행운아 2012-07-09 2897
124 인사관리 file [2] [레벨:5]눈물바다 2011-04-14 2885
123 엑셀일반 궁금합니다. 아별님+_+ [5] [레벨:3]빛의행운아 2012-02-24 2872
목록
쓰기