Excel シートインポート、Excel シートエクスポート

■SAK 関数利用規程・テクニック編で紹介する関数は、私こと Y.SAK の開発関数である。・著作権明示部分の改編は認めない。・個人、企業がこれらの関数を使用したり、一部を使用して新たなシステムやプログラムを開発することは自由です。・但し、これらの関数を一部でも使用しているソフトウェアをシェアウェア、その他有償プロダクトとして配布・販売するには、私の許可が必要です。 (無償のフリーソフトウェアなら、自由に配布しても良い。) ・これらの関数を使用して発生した、いかなる形での損害も私こと Y.SAK は賠償しません。 ■Excel シートインポート (ADO 版) ・外部データ取込として、Excel シート上のデータをデータベースに追加更新するには、次のようにする。先頭行を見出しとして無視するか指定できる。見出しがない場合は、mds = false にする。テーブルの項目に、char、varchar2、number、long 以外があると、文字列と数値の判断がおかしくなるかもしれません。見出しによって、テーブル項目を指定することはしていないので、シートの項目順は、更新テーブルの項目順と一致していなければなりません。・一括トランザクションをかけているため、大量のレコードを更新しようとすると、ロールバックセグメントがオーバーするか、著しく更新速度が低下する可能性があります。1 万件を超える場合は要注意です。・RDO、ADO、oo4o、CSV、Excel 各種インポート、エクスポートについては、 http://hpcgi2.nifty.com/sak/s3sh/w_s3shix.cgi?key=インポート%20エクスポートを参照下さい。 Dim s3cn_ado As variant Dim dsn As String Dim tbl As String Dim tky As String Dim sql As String Dim rs As variant Dim fnm As String Dim mds As boolean Dim fno As Integer Dim i As Integer Dim j As Integer Dim k As long Dim s As String Dim ct As long Dim exl As Object dsn = "dsn=SAK3_ADO;uid=SAK;pwd=SAK" tbl = "sak.受注m" tky = "受注番号 = ''" '0 件のダミー問い合わせ用のキー" fnm = "g:/tmp/test.xls" mds = true set s3cn_ado = CreateObject ("ADODB.Connection") s3cn_ado.Open dsn sql = "select * from " & tbl & " where " & tky set rs = s3cn_ado.Execute(sql) j = rs.fields.count - 1 redim ctyp(j) as boolean For i = 0 to j select case rs(i).type case 131, 139 ctyp(i) = true case else ctyp(i) = false end select Next rs.close Set exl = CreateObject("Excel.Application") exl.Application.Visible = True exl.Application.Workbooks.Open FileName:=fnm k = 1 if mds then k = 2 end if s3cn_ado.BeginTrans on error resume next for k = k to 65536 s = "" If exl.Cells(k, 1) = "" Then Exit For For i = 0 To j if ctyp(i) then s = s & "," & exl.Cells(k, i + 1) else s = s & ",'" & exl.Cells(k, i + 1) & "'" end if Next s = mid(s, 2) sql = "insert into " & tbl & " values (" & s & ")" s3cn_ado.Execute sql if err <> 0 then s3cn_ado.RollbackTrans close fno s3cn_ado.Close msgbox "更新エラー" & chr(10) & err & ": " & error _ & chr(10) & ct + 1 & " 件目に問題あり" _ & chr(10) & sql end end if ct = ct + 1 next s3cn_ado.CommitTrans on error goto 0 exl.Application.DisplayAlerts = False exl.Application.Quit s3cn_ado.Close ■Excel シートエクスポート (ADO 版) ・外部データコンバートとして、Excel シートに問い合わせ結果を出力には、次のようにする。但し、コードのゼロ埋め処理はしていません。見出し出力が不要な場合は、mds = false にする。・RDO、ADO、oo4o、CSV、Excel 各種インポート、エクスポートについては、 http://hpcgi2.nifty.com/sak/s3sh/w_s3shix.cgi?key=インポート%20エクスポートを参照下さい。 Dim s3cn_ado As variant Dim dsn As String Dim sql As String Dim rs As variant Dim fnm As String Dim mds As boolean Dim i As Integer Dim k As long Dim exl As Object dsn = "dsn=SAK3_ADO;uid=SAK;pwd=SAK" sql = "select * from sak.受注m order by 受注番号" fnm = "g:/tmp/test.xls" mds = true set s3cn_ado = CreateObject ("ADODB.Connection") s3cn_ado.Open dsn set rs = s3cn_ado.Execute(sql) Set exl = CreateObject("Excel.Sheet") k = 1 if mds then For i = 0 to rs.fields.count - 1 exl.worksheets(1).cells(k, i + 1).value = rs(i).name Next k = 2 end if Do Until rs.EOF For i = 0 to rs.fields.count - 1 exl.worksheets(1).cells(k, i + 1).value = rs(i) & "" Next k = k + 1 rs.MoveNext Loop rs.close exl.Sheets(1).Name = "test" exl.Application.Visible = True exl.Windows.Arrange ArrangeStyle:=1 exl.saveas fnm s3cn_ado.Close

Excel シートインポート、Excel シートエクスポート相关推荐

在线excel、excel协同平台、网络excel类产品很多，为啥大公司却只选云表？
很多企业在办公的时候都会使用EXCEL,在大多数人都习惯了EXCEL操作的情况下,很多依托EXCEL的EXCEL协同平台也应运而生. 不过有一个现象越来越明显,那就是大公司都已不再使用传统的EXCEL ...
EasyExcel解析并分割Excel、Excel分割
在日常写解析Excel业务中,可能会遇到在解析一个Excel表时,表中的数据不能全被一个对象接收,这时候可能需要定义一个大对象去接收数据,但是我们知道,Excel中一行数据就是一个对象,所以这种方式是 ...
Excel、Exchange和C#
摘要:Eric Gunnerson 将向您介绍如何使用 Outlook.Excel 和 C# 创建自定义的日历,该日历可以提供适用于短期项目和长期项目的清晰明了的版式. 下载 csharp051520 ...
txt 乱码_STATA数据导入——将TXT、EXCEL、SAS、SPSS数据/批量导入STATA
作者:Misszhou早早早邮箱:zlr1220@126.com 使用Stata进行数据分析时面临的第一个问题是如何将各种类型的数据转换为dta.格式,导入的途径主要有以下几种: Stat/Tran ...
在word、excel中如果运用VBA进行编程？
VBA简介 VBA(Visual Basic for Applications)是Visual Basic的一种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言.主要能用来扩展Wi ...
mysql 分组排序_Python、PowerBI、Excel、MySQL，都能做？搞清楚数据聚合与分箱
阅读提示本内容为日常频繁使用的数据处理操作,不涉及底层技术问题,烦请爱钻牛角的杠精绕行. 本内容尽量简单直白.步骤详细,适合数据分析入门.特别喜欢技术语言的大佬们,可自行跳过. 上一篇:数据更新删除 ...
Asp.net实现直接在浏览器预览Word、Excel、PDF、Txt文件（附源码）
功能说明输入文件路径,在浏览器输出文件预览信息,经测试360极速(Chrome).IE9/10.Firefox通过分类文件及代码说明 DemoFiles 存放可测试文件 Default.aspx ...
利用Spring-Boot解析Excel、用Java分析Excel、告别手动输入用程序读取Excel
利用Spring-Boot解析Excel.用Java分析Excel.告别手动输入用程序读取Excel 一.资源 java读取Excel文件二.修改 (一)中的代码中的 import service. ...
office(Word、Excel、PPT等图标异常和桌面无新建解决方案)
office(Word.Excel.PPT等图标异常和桌面无新建解决方案) 参考文章: (1)office(Word.Excel.PPT等图标异常和桌面无新建解决方案) (2)https://www. ...

Excel シートインポート、Excel シートエクスポート

Excel シートインポート、Excel シートエクスポート相关推荐

最新文章

热门文章