{"provider_name":"Hatena Blog","categories":["Access","DB","VBA"],"author_name":"IZIZIZI","blog_url":"https://izizizi.hatenadiary.org/","type":"rich","description":"CSV\u30d5\u30a1\u30a4\u30eb\u3092\u9078\u629e\u3055\u305b\u308b\u306e\u306b\u30d5\u30a1\u30a4\u30eb\u9078\u629e\u30c0\u30a4\u30a2\u30ed\u30b0\u3092\u8868\u793a\u3059\u308b\u30b5\u30f3\u30d7\u30eb\u95a2\u6570\u53c2\u7167\u8a2d\u5b9a\u300cMicrosoft Office *.* Object Library\u300d\u30c1\u30a7\u30c3\u30af Function selectCsvFileDialog(strTitle As String, selectType As Integer) Dim varSelectedFile As Variant Dim mType As Integer If selectType = 0 Then '\u30d5\u30a1\u30a4\u30eb\u3092\u9078\u629e mType = msoFileDialogFilePicker Else '\u30d5\u30a9\u30eb\u30c0\u30fc\u3092\u9078\u629e mType = msoFil\u2026","height":"190","width":"100%","author_url":"https://blog.hatena.ne.jp/IZIZIZI/","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fizizizi.hatenadiary.org%2Fentry%2F20100610%2F1276149221\" title=\"AccessVBA\u3067\u30d5\u30a1\u30a4\u30eb\u53c2\u7167\u30c0\u30a4\u30a2\u30ed\u30b0\u8868\u793a(\u30d5\u30a9\u30eb\u30c0\u9078\u629e) - IZIZIZI\u306e\u5099\u5fd8\u9332\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","url":"https://izizizi.hatenadiary.org/entry/20100610/1276149221","blog_title":"IZIZIZI\u306e\u5099\u5fd8\u9332","published":"2010-06-10 14:53:41","image_url":null,"version":"1.0","provider_url":"https://hatena.blog","title":"AccessVBA\u3067\u30d5\u30a1\u30a4\u30eb\u53c2\u7167\u30c0\u30a4\u30a2\u30ed\u30b0\u8868\u793a(\u30d5\u30a9\u30eb\u30c0\u9078\u629e)"}