ONLY DO WHAT ONLY YOU CAN DO

こけたら立ちなはれ 立ったら歩きなはれ

Excel

フォルダ内の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…

さまざまな言語で 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(…

VBScript で iTunes にインポートする

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

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…

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

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…

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オブジェ…

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…

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 …

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); ?>

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…

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…

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, …