フォルダ内のSQLを読んで実行結果をExcelに出力する

VBScript Option Explicit Private fs Private conn Private excelApp Private excelBook Private excelSheet '出力シートの準備 Private Sub openSheet(iSheet, sqlFile) '必要なら、シートを追加する If iSheet > excelBook.WorkSheets.Count Then excelBo…

2012-04-07

さまざまな言語で Excel オートメーション (まとめ)

VBScript JScript Perl PHP Python Ruby Java C# OLE Excel

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

2012-04-02

VBScript で iTunes にインポートする

VBScript Excel iTunes OLE

Option Explicit Dim excelApp Set excelApp = CreateObject("Excel.Application") excelApp.Visible = True excelApp.DisplayAlerts = False '警告メッセージをOFF Dim iTunesApp Set iTunesApp = WScript.CreateObject("iTunes.Application") 'ブックを読…

2012-04-01

VBScript で Excel OLE オートメーションシートの内容を取得する

VBScript Excel OLE

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

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 オートメーションシート名を列挙する