키워드 분석 종결! No 코딩, No 함수 엑셀 자동화 대시보드 - 1주차

안녕하세요! 오빠두엑셀입니다.
먼저 시청하시는데 불편을 드려 죄송합니다. 오빠두엑셀의 멤버십 강의는 유튜브 위캔두 멤버십 회원 여러분에게 제공해드리고 있습니다.
멤버십은 아래 링크를 클릭하시면 가입할 수 있습니다.
https://www.youtube.com/channel/UCZ6UHYBQFBe14WUgxlgmYfg/join
가입하는 과정에 도움이 필요하실 경우, 언제든 편하게 게시판이나 댓글로 문의를 남겨주시면 확인 후 도와드리겠습니다.
감사합니다.🙇‍♂️

안녕하세요!
확인해보니 쿠팡의 검색결과 리턴 형식이 변경되어 오류가 발생하는 것으로 확인하였습니다.

파워쿼리 함수 중, GetSerachKeywords 함수를 아래 코드로 변경해보세요 :)
바로 해결될겁니다.

(Keywords as text) =>

let

    Source = Xml.Tables(Web.BrowserContents("http://suggestqueries.google.com/complete/search?output=toolbar&q="&Keywords)){[Name="body"]}[Table],

    ExpandTables = Table.ExpandTableColumn(Table.ExpandTableColumn(Table.ExpandTableColumn(Table.ExpandTableColumn(Source, "Table", {"Namespace:"}, {"Namespace:"}),"Namespace:", {"toplevel"}, {"toplevel"}), "toplevel", {"CompleteSuggestion"}, {"CompleteSuggestion"}), "CompleteSuggestion", {"suggestion"}, {"suggestion"}),

    getKeywords = Table.ExpandTableColumn(Table.SelectColumns(ExpandTables,{"suggestion"}), "suggestion", {"Attribute:data"}, {"Attribute:data"}),

    RemoveEmpty = Table.SelectRows(getKeywords, each [#"Attribute:data"] <> null and [#"Attribute:data"] <> ""),

    GoogleSearchKeyword = Table.ReorderColumns(Table.AddColumn(Table.RenameColumns(RemoveEmpty,{{"Attribute:data", "Keywords"}}), "플랫폼", each "구글"),{"플랫폼", "Keywords"}),

    NaverSource = Json.Document(Web.Contents("https://ac.search.naver.com/nx/ac?q="&Keywords&"&st=100")),

    ListToNaverTable = Table.FromList(Record.ToTable(NaverSource){[Name="items"]}[Value], Splitter.SplitByNothing(), null, null, ExtraValues.Error),

    ExpandNaverTable = Table.ExpandListColumn(Table.ExpandListColumn(ListToNaverTable, "Column1"), "Column1"),

    NaverSearchKeywords = Table.RenameColumns(Table.ReorderColumns(Table.AddColumn(ExpandNaverTable, "플랫폼", each "네이버"),{"플랫폼", "Column1"}),{{"Column1", "Keywords"}}),

    NaverShoppingSource = Json.Document(Web.Contents("https://m.shopping.naver.com/api/modules/gnb/auto-complete?keyword="&Keywords)),

    ListToNaverShopTable = List.Transform(NaverShoppingSource[result][keywordList], each [keywordName]),

    ExapandNaverShopTable = Table.FromList(ListToNaverShopTable, Splitter.SplitByNothing(), null, null, ExtraValues.Error),

    NaverShopKeywords = Table.ReorderColumns(Table.AddColumn(Table.RenameColumns(Table.SelectColumns(ExapandNaverShopTable,{"Column1"}),{{"Column1", "Keywords"}}), "플랫폼", each "네이버쇼핑"),{"플랫폼", "Keywords"}),

    CoupangSource = Csv.Document(Web.Contents("https://www.coupang.com/np/search/autoComplete?callback=&keyword="&Keywords),[Delimiter="{", Columns=30, Encoding=65001, QuoteStyle=QuoteStyle.None]),

    GetCoupangKeywords = Table.SelectRows(Table.UnpivotOtherColumns(CoupangSource, {}, "Cols", "Keywords"), each [Keywords] <> null and [Keywords] <> ""),

    ExtractCoupangKeywords = Table.TransformColumns(GetCoupangKeywords, {{"Keywords", each Text.BetweenDelimiters(_, """", """"), type text}}),

    ExpandCoupandTable = Table.AddColumn(Table.SelectRows(Table.RemoveColumns(ExtractCoupangKeywords,{"Cols"}), each [Keywords] <> null and [Keywords] <> ""), "플랫폼", each "쿠팡"),

    CombineResults = Table.Combine({NaverSearchKeywords, GoogleSearchKeyword, NaverShopKeywords, ExpandCoupandTable}),

    GetSearchKeywords = Table.Sort(Table.Group(CombineResults, {"Keywords"}, {{"Cnt", each Table.RowCount(_), Int64.Type}, {"Merge", each Text.Combine([플랫폼],","), type text}}),{{"Cnt", Order.Descending}})

in

    GetSearchKeywords

안녕하세요. 오빠두엑셀 전진권입니다.
키워드 분석 서식의 경우 주기적으로 구조가 변하는 쇼핑 페이지 특성을 매번 반영하기 어려워, 현재는 업데이트를 중단한 상황입니다.
다만 현재 남겨주신 오류는 웹 접근 권한 설정을 변경해서 해결할 수 있습니다.
파워쿼리 편집기 - 옵션 - 쿼리 설정에서 개인정보 설정을 '무시'로 변경해보시길 바랍니다.
감사합니다.