ONLY DO WHAT ONLY YOU CAN DO

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

OLE

PowerShell で iTunes にインポートする

指定したフォルダ配下の曲を一括インポート function ImportWav($arg) { $args = $arg.fullName.split("\") # 階層構造が 一律ではない # c:\音楽\MP3\グループ分け\アーティスト名\アルバム名\ディスク番号\曲名.mp3 # c:\音楽\MP3\グループ分け\アーティス…

PowerShell で iTunes にインポートする

指定したフォルダ配下の曲を一括インポート $global:it = New-Object -ComObject iTunes.Application $global:artist_name = "" $global:album_name = "" $global:truck_name = "" $global:truck_no = 0 #指定したフォルダ配下の曲を一括インポート # \アー…

PowerShell で iTunes にインポートする

wav形式で保存済みの曲をインポートする場合 $it = New-Object -ComObject iTunes.Application $sts = $it.ConvertFile("c:\WAV\01 矢沢永吉\01 キャロル\01 ルイジアンナ\02 ヘイ・タクシー.wav") while($sts.InProgress) { Start-Sleep 1 } foreach ($trac…

さまざまな言語で Access オートメーション

VBScript Option Explicit Const acOutputReport = 3 Const acViewPreview = 2 Const acFormatXLS = "Microsoft Excel (*.xls)" Const acFormatRTF = "Rich Text Format (*.rtf)" Const acFormatSNP = "Snapshot Format (*.snp)" Const acFormatHTML = "HTML…

さまざまな言語で Internet Explorer オートメーション

VBScript Option Explicit 'IE起動 Dim ie: Set ie = CreateObject("InternetExplorer.Application") ie.Visible = True ie.Toolbar = True ie.MenuBar = True ie.AddressBar = True ie.StatusBar = True 'ログオン画面 ie.Navigate "http://192.168.1.1/zzz…

フォルダ内の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 にインポートする

PlayList を新規追加して、インポートする場合 Set iTunesApp = WScript.CreateObject("iTunes.Application") WScript.StdOut.WriteLine "登録開始..." WScript.StdOut.WriteLine iTunesApp.CurrentEncoder.Name Set playList = iTunesApp.LibrarySource.Pla…

VBScript で iTunes にインポートする

PlayList を新規追加して、インポートする場合 Set iTunesApp = WScript.CreateObject("iTunes.Application") WScript.StdOut.WriteLine "登録開始..." WScript.StdOut.WriteLine iTunesApp.CurrentEncoder.Name Set playList = iTunesApp.LibrarySource.Pla…

VBScript で iTunes にインポートする

既にmp3形式に変換済みの曲をインポートする場合 Set iTunesApp = WScript.CreateObject("iTunes.Application") WScript.StdOut.WriteLine "登録開始..." WScript.StdOut.WriteLine iTunesApp.CurrentEncoder.Name Set sts = iTunesApp.LibraryPlaylist.AddF…

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 で 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:\…

Java で ADO

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"); …

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

VBScript で iTunes にインポートする

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

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

Set iTunesApp = WScript.CreateObject("iTunes.Application") For Each track In iTunesApp.LibraryPlaylist.Tracks WScript.StdOut.Write track.Artist & "," WScript.StdOut.Write track.Album & "," WScript.StdOut.Write track.tracknumber & "," WScri…