Java で DAO

import com.jacob.com.*; import com.jacob.activeX.*; public class Lesson003 { public static void main(String[] args) { ActiveXComponent cn = new ActiveXComponent("DAO.DBEngine.36"); try { Dispatch db = Dispatch.call(cn ,"OpenDatabase", "C:\…

2012-03-30

Java で ADO

Java ADO OLE Oracle jacob

import com.jacob.com.*; import com.jacob.activeX.*; public class Lesson002 { public static void main(String[] args) { ActiveXComponent cn = new ActiveXComponent("ADODB.Connection"); try { Dispatch.call(cn ,"Open", "xxxx", "yyyy", "zzzz"); …

2012-03-29

Java で Excel OLE オートメーション

Java Excel OLE jacob

import com.jacob.com.*; import com.jacob.activeX.*; public class Lesson001 { public static void main(String[] args) { ActiveXComponent xl = new ActiveXComponent("Excel.Application"); Object xlo = xl.getObject(); try { xl.setProperty("Visib…

2012-03-28

C# で Excel OLE オートメーションシート名を列挙する

C# Excel OLE

using System.Runtime.InteropServices; using System.Reflection; class Program { static void Main(string[] args) { //Excelファイルパス string strMacroPath = @"C:\work\001 Excel シート名を列挙する\Book1.xls"; try { // Excel操作用COMオブジェ…

2012-03-27

JScript で Excel OLE オートメーションシート名を列挙する

JScript Excel OLE

var objExcel = WScript.CreateObject("Excel.Application"); objExcel.Visible = true; objExcel.DisplayAlerts = false; //警告メッセージをOFF //ブックを読み取り専用で開く var book = objExcel.Workbooks.Open(WScript.Arguments(0), false, true); fo…

2012-03-26

Perl で Excel OLE オートメーションシート名を列挙する

Perl Excel OLE

use Win32::OLE; Win32::OLE::CreateObject("Excel.Application", $objExcel) || die "fail! : $!"; $objExcel->{Visible} = 1; $objExcel->{DisplayAlerts} = 0; #警告メッセージをOFF $objBook = $objExcel->WorkBooks->Open($ARGV[0], 0, 1); foreach $i …

2012-03-25

PHP で Excel OLE オートメーションシート名を列挙する

PHP Excel OLE

Visible = 1; $excel->DisplayAlerts = 0; $wkb = $excel->Workbooks->Open($argv[1], false, true); foreach ($wkb->Worksheets as $sheet) { echo $sheet->Name, "\n"; } $wkb->Close(); $excel->Quit(); unset($excel); ?>

2012-03-24

Python で Excel OLE オートメーションシート名を列挙する

Python Excel OLE

# coding: cp932 import win32api, win32con, win32com, win32com.client, os, time, sys xlApp=win32com.client.Dispatch("Excel.Application") xlApp.Visible=True xlApp.DisplayAlerts=False #警告メッセージをOFF #ブックを読み取り専用で開く wb = xlAp…

2012-03-23

Ruby で Excel OLE オートメーションシート名を列挙する

Ruby Excel OLE

require 'win32ole' objExcel = WIN32OLE.new('Excel.Application') objExcel.Visible = 1 objExcel.DisplayAlerts = 0 #警告メッセージをOFF objBook = objExcel.WorkBooks.Open(ARGV[0], false, true) begin objBook.WorkSheets.each do |sheet| puts(shee…

2012-03-22

VBScript で Excel OLE オートメーションシート名を列挙する

VBScript Excel OLE

Dim objExcel Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True objExcel.DisplayAlerts = False '警告メッセージをOFF 'ブックを読み取り専用で開く Dim book Set book = objExcel.Workbooks.Open(WScript.Arguments(0), False, …

2012-03-21

VBScript で iTunes にインポートする

VBScript OLE iTunes

wav形式で保存済みの曲をインポートする場合 Set iTunesApp = WScript.CreateObject("iTunes.Application") WScript.StdOut.WriteLine "登録開始..." WScript.StdOut.WriteLine iTunesApp.CurrentEncoder.Name Set sts = iTunesApp.ConvertFile("c:\WAV\01 …

2012-03-20

VBScript で iTunes のライブラリに登録されている曲の一覧を取得する