fornext1119

# coding: cp932
import win32api, win32con, win32com, win32com.client, os, time, sys

excelApp               = win32com.client.Dispatch("Excel.Application") 
excelApp.Visible       = True
excelApp.DisplayAlerts = False #警告メッセージをOFF

#ブックを読み取り専用で開く
book = excelApp.workbooks.open(sys.argv[1], False, True)
for sheet in book.Worksheets:

fornext1119

Option Explicit

Private fs
Private conn

'結果出力
Private Sub writeResult(rs, sqlFile)
	'上書きか、追加書き込みか
	Dim mode: mode = "2" '2:ForWriting
	If WScript.Arguments.Count > 2 Then

fornext1119

Option Explicit

Private fs
Private conn
Private excelApp
Private excelBook
Private excelSheet

'出力シートの準備
Private Sub openSheet(iSheet, sqlFile)

fornext1119

fornext1119

fornext1119

fornext1119

fornext1119

// Use Gists to store code you would like to remember later on
console.log(window); // log the "window" object to the console

fornext1119

ヤコビの反復法

use constant N => 3;

my @a = ([9,2,1,1],[2,8,-2,1],[-1,-2,7,-2],[1,-1,-2,6]);
my @b = (20,16,8,17);
my @c = (0,0,0,0);

# ヤコビ反復法
jacobi(\@a, \@b, \@c);

fornext1119

Public Sub DeleteNames()
    For Each nm In ActiveWorkbook.Names
        Debug.Print nm.Name
        nm.Delete
    Next
End Sub