{"id":4250,"date":"2014-03-10T01:00:00","date_gmt":"2014-03-09T16:00:00","guid":{"rendered":"http:\/\/keuko.exp.jp\/diary\/?p=4250"},"modified":"2014-03-10T01:00:00","modified_gmt":"2014-03-09T16:00:00","slug":"%e3%83%a9%e3%82%a4%e3%82%bb%e3%83%b3%e3%82%b9%e3%81%8c%e9%ab%98%e3%81%84%e3%82%93%e3%81%98%e3%82%83%e3%82%88%e3%83%bc%ef%bc%81%ef%bc%88%e6%9c%ac%e9%9f%b3%ef%bc%89","status":"publish","type":"post","link":"https:\/\/keuko.exp.jp\/diary\/?p=4250","title":{"rendered":"\u30e9\u30a4\u30bb\u30f3\u30b9\u304c\u9ad8\u3044\u3093\u3058\u3083\u3088\u30fc\uff01\uff08\u672c\u97f3\uff09"},"content":{"rendered":"<p>Excel\u3092\u30a4\u30f3\u30b9\u30c8\u30fc\u30eb\u3057\u3066\u3044\u306a\u3044\u74b0\u5883\u3067\u3001VB.NET\u3092\u4f7f\u3063\u3066Excel\u30d5\u30a1\u30a4\u30eb\u306e\u5185\u5bb9\u3092\u8aad\u307f\u8fbc\u307f\u305f\u3044\u3002<br \/>\n\u3066\u3053\u3068\u304c\u3042\u3063\u305f\u306e\u3067\u3059\u3088\u3002<br \/>\n\u7121\u7406\u3060\u308d\u3068\u601d\u3063\u3066\u304a\u3063\u305f\u306e\u3067\u3059\u304c\u3001\u3044\u3084\u3042\u3067\u304d\u308b\u3082\u3093\u306a\u3093\u3067\u3059\u306d\u3002<br \/>\n\u53d6\u308a\u8fbc\u3093\u3060\u5185\u5bb9\u3092\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u306b\u5410\u304d\u51fa\u3057\u307e\u3059\u3002<br \/>\n\u4f8b\u306b\u3088\u3063\u3066\u3001\u5f8c\u51e6\u7406\u3068\u304b\u624b\u629c\u304d\u3067\u3059\u3002<\/p>\n<pre class=\"mycode\">\nImports System.Data.OleDb\nPublic Class Form1\nPrivate Sub Button1_Click(sender As Object, e As System.EventArgs) Handles Button1.Click\nDim txt As String\nDim strFileName As String = \"\u53d6\u8fbc\u30d5\u30a1\u30a4\u30eb.xls\"\ntxt = DataSet(strFileName)\nDim fso As Object\nfso = CreateObject(\"Scripting.FileSystemObject\")\nWith fso.OpenTextfile(\"output.txt\", 8, True)\n.WriteLine(strFileName)\n.WriteLine(txt)\n.Close()\nEnd With\nfso = Nothing\nCall MsgBox(\"\u304a\u3057\u307e\u3044\uff01\")\nEnd Sub\nPrivate Function DataSet(path As String) As String\nDim conString As String\nDim strConn As String\nDim strRtn As String = \"\"\nstrConn = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source={0};Extended Properties=\"\"Excel 8.0;HDR=No;Imex=1\"\";\"\nconString = String.Format(strConn, path)\nDim con As OleDbConnection = New OleDbConnection(conString)\ncon.Open()\nDim schemaTable As DataTable = con.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, Nothing)\ncon.Close()\nDim ds As DataSet = New DataSet()\nDim row As DataRow\nDim tableName As String\nDim sql As String\nDim oda As OleDbDataAdapter\nDim table As DataTable\nFor Each row In schemaTable.Rows\ntableName = row(\"TABLE_NAME\").ToString()\nsql = String.Format(\"SELECT * FROM [{0}]\", tableName)\noda = New OleDbDataAdapter(sql, con)\ntable = New DataTable(tableName)\nstrRtn = strRtn & \"SheetName:\" & tableName & vbCrLf\nTry\noda.Fill(table)\nds.Tables.Add(table)\nDim dr As DataRow\nFor r = 0 To ds.Tables(0).Rows.Count - 1 'Show results in output window\ndr = ds.Tables(0).Rows(r)\nFor c = 0 To dr.ItemArray.Length - 1\nIf dr.ItemArray(c).ToString &#60;&#62; \"\" Then\nstrRtn = strRtn & \"(\" & c & \"\/\" & r & \")\" & dr.ItemArray(c).ToString & vbCrLf\nEnd If\nNext\nNext\nCatch ex As Exception\nEnd Try\nNext\nReturn strRtn\nEnd Function\nEnd Class\n<\/pre>\n<p>\u4ee5\u4e0b\u306e\u30da\u30fc\u30b8\u3092\u53c2\u8003\u306b\u3055\u305b\u3066\u3044\u305f\u3060\u304d\u307e\u3057\u305f\u3002\u591a\u8b1d\u3002<br \/>\n<a href=\"http:\/\/d.hatena.ne.jp\/nagakura_eil\/20080716\/p1\" target=\"_blank\">http:\/\/d.hatena.ne.jp\/nagakura_eil\/20080716\/p1<\/a><br \/>\n<a href=\"http:\/\/support.microsoft.com\/kb\/316934\/ja\" target=\"_blank\">http:\/\/support.microsoft.com\/kb\/316934\/ja<\/a><br \/>\n<a href=\"http:\/\/support.microsoft.com\/kb\/257819\/ja\" target=\"_blank\">http:\/\/support.microsoft.com\/kb\/257819\/ja<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"<p>Excel\u3092\u30a4\u30f3\u30b9\u30c8\u30fc\u30eb\u3057\u3066\u3044\u306a\u3044\u74b0\u5883\u3067\u3001VB.NET\u3092\u4f7f\u3063\u3066Excel\u30d5\u30a1\u30a4\u30eb\u306e\u5185\u5bb9\u3092\u8aad\u307f\u8fbc\u307f\u305f\u3044\u3002 \u3066\u3053\u3068\u304c\u3042\u3063\u305f\u306e\u3067\u3059\u3088\u3002 \u7121\u7406\u3060\u308d\u3068\u601d\u3063\u3066\u304a\u3063\u305f\u306e\u3067\u3059\u304c\u3001\u3044\u3084\u3042\u3067\u304d\u308b\u3082\u3093\u306a\u3093\u3067\u3059\u306d\u3002 \u53d6\u308a\u8fbc\u3093\u3060\u5185\u5bb9\u3092\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1<\/p>\n<p><a class=\"button\" href=\"https:\/\/keuko.exp.jp\/diary\/?p=4250\" title=\"More\">  \u7d9a\u304d\u3092\u8aad\u3080 \u2192<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[10],"tags":[],"class_list":["post-4250","post","type-post","status-publish","format-standard","hentry","category-job"],"_links":{"self":[{"href":"https:\/\/keuko.exp.jp\/diary\/index.php?rest_route=\/wp\/v2\/posts\/4250","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/keuko.exp.jp\/diary\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/keuko.exp.jp\/diary\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/keuko.exp.jp\/diary\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/keuko.exp.jp\/diary\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=4250"}],"version-history":[{"count":0,"href":"https:\/\/keuko.exp.jp\/diary\/index.php?rest_route=\/wp\/v2\/posts\/4250\/revisions"}],"wp:attachment":[{"href":"https:\/\/keuko.exp.jp\/diary\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=4250"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/keuko.exp.jp\/diary\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=4250"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/keuko.exp.jp\/diary\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=4250"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}