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

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

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

글 수 822

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

조회 수 5918 추천 수 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://abyul.com/zbxe/71954/6b0/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 45096
821 엑셀일반 엑셀파일 비밀번호 단체 설정 가능한가요? [30] [레벨:4]쟈니 2012-06-18 54419
820 엑셀일반 회원만 질문을 올릴 수 있습니다. [레벨:30]아별 2010-09-21 33375
819 기타 [필독] 질문시.. 엑셀 파일 첨부, 윈도우버전과 엑셀버전 표기, 답변 받으면 피드백 댓글 꼭 달기.. [레벨:30]아별 2011-08-11 26933
818 엑셀일반 행높이 최대치 조절 가능할까요? _ Excel 사양 및 제한 [3] [레벨:6]파이스 2012-06-01 15071
817 엑셀 웹커리에서 URL 바꾸기 매크로 질문 [1] [레벨:1]밥사마 2009-09-01 13564
816 엑셀- sumif와 sumcol 혼용사용에 대해서 (급해요) [1] 아놔 2009-07-31 13093
815 엑셀일반 엑셀에서 사진 고정하는 방법 없을까요? [3] [레벨:3]빛의행운아 2012-07-30 12790
814 엑셀수식 3차 방정식 풀기. [1] [레벨:3]rynoel 2012-06-13 11042
813 제가 해외 사우디에서 파일을 받았는데 글씨가 계속 깨짐니다. file [1] [레벨:0]홍콩중국홍콩 2010-05-10 11017
812 또 다시 질문이 있어서 왔습니다. (일자별 관리시트에서 이전 시트 값(전일 잔액 등) 자동 불러오기) file [1] [레벨:3]harcz 2010-05-22 10988
811 엑셀에서 지수값 계산하기 [1] [레벨:2]양다원 2009-07-21 10562
810 셀색깔별로 합계를 내고 싶습니다. file [1] [레벨:1]지민 2010-04-09 10542
809 엑셀에서 복사할 때 행 및 열넓이까지 그대로 복사하는 방법 [7] [레벨:2]만쥬 2010-12-07 10306
808 VBA 엑셀 열 추가 _ 엑셀의 마지막 셀 재 인식시키는 팁 ActiveSheet.UsedRange.Select imagefile [1] [레벨:5]눈물바다 2009-08-27 10297
807 엑셀일반 셀 안에 삽입된 이미지의 정가운데(가로+세로)정렬 방법이 궁금합니다. [6] [레벨:6]파이스 2011-10-11 10215
806 피벗테이블 피벗테이블에서 (비어있음)을 보이지 않게 할 수 있나요? file [레벨:1]농구경제박사 2016-02-25 10182
805 엑셀 주식형 차트 민 2009-08-17 10058
804 엑셀에서 특정데이터 불러오기 [1] [레벨:1]쒸뱅이 2009-07-17 10004
803 엑셀일반 엑셀 특정 자리 숫자 내림 올림 하는 방법이 뭔가요?? [레벨:1]키모스 2016-10-28 9926
목록
쓰기