田舎のプログラマーになる

Accessがインストールされていない環境でExcelからAccessファイルを作る

Accessは使いこなせば非常に有効だけど、結構高い。

使いこなせばすぐに費用対効果は出せるけど、一般の人には理解してもらえないところがある。

ただExcelはほぼ必ずと言っていいほど入っているので、Excelが入っていない環境でAccessファイルを作ることができることがわかった。

＜必要な参照設定＞

＜コード＞

’Accessファイル（.accdb）を作成

Public Sub CreateAccdbFile()

Dim objMdb As DAO.Database

Set objMdb = DBEngine.CreateDatabase("C:\Users\SampleUser\Desktop\sample.accdb", dbLangJapanese)

End Sub

これでAccessファイルだけは作成できる。データベースの最適化の処理などはないので、ひたすら肥大化し続けることあるので注意すること。

まぁSqlite3.dllがある64bit環境であればsqlite3を利用するのが一番だと思うけども。

後はA5 SQL Mk-2などで作成されたファイルに接続して、Create Tableを実行すればいい。

バーコード読み取りソフト

Excelでバーコードを読み取りたいと思ったけど、dllをsystem32へコピーする必要があったりとちょっと今の環境ではできないことだったので、専用のexeを作ってVectorで公開した。

　https://www.vector.co.jp/soft/winnt/writing/se523178.html

使い方はとっても簡単。Zxing.exeの引数にファイルパスを指定するだけ。

例）

　・コマンドプロンプトを起動

　・Zxing.exeのあるフォルダへ移動

　・Zxing.exe c:\users\ユーザー名\DeskTop\バーコード画像.jpg

　・Result.txtに結果が出力される

トリミングをする必要があるので、Excelのトリミング機能を使って、トリミングした後の画像を一時的にtemp.bmpとかに保存しておいてその画像をZxing.exeに渡してあげる。

Excelで簡易ガントチャートツール

仕事でプロジェクトツールが全く使われていなく、導入する予定もない部署への応援が決定した。

取り急ぎ、ガントチャートを作れるソフトが欲しかったのでExcelで作れるか試してみた。まぁちゃんとしたソフトがインストールできればそれでよかったんだけど、難しそうなので自作でしのげればと思う。

作成途中だけど、日付を入れるとその日の色が変わる程度なら作れたので一旦、ここまでとしておこうと思う。正直どんな管理項目が必要かもわからないので、そのあたりは融通が利くように列名の定義をできるようにしておいた。さて、必要そうな機能（まぁ色変えるだけなんだけど）の実装は終わったのであとはコードのコピペして完成品を作ろう。

＜概要＞

　・処理開始時にメインシートに定義しておいた、色を変えたい日付範囲の項目名を探す

　・列があとからどんどん追加されていくので「ガントチャート」部分の開始列が分かるように「【ガントチャート開始】」という文字列を入れておく。（消さないでね・・・）

　・日付セルの場合は加算、減算ができるので基準日から開始日、終了日からの差を見ればどの列範囲かもわかるのでそこの色を変える。

　・キーワードの設定（〆切日、その他色々）もできればいいな。（願望）

　・範囲を複数持たせていろんな意味の色を塗れるようにする。発注期間の色、使用期限の色、利用期間の色、などなど（できればいいな）

＜プログラム　とりあえず4行目の色を変えるだけ＞

Private fintBetween1Start As Integer

Private fintBetween1End As Integer

Private fintBetween2Start As Integer

Private fintBetween2End As Integer

Private fintBetween3Start As Integer

Private fintBetween3End As Integer

Private fintBetween4Start As Integer

Private fintBetween4End As Integer

Private fintBetween5Start As Integer

Private fintBetween5End As Integer

Private fdatePrjStartDate As Date

Private Const SHEETNAME_DATA As String = "データ"

Private Const SHEETNAME_MAIN As String = "メイン"

Private Const HeaderRow As Integer = 3

Private Const DataStartRow As Integer = 4

Private Const FINT_MAX_COLUMN_IN_DATE As Integer = 1500

'メインシート

Private Const FINT_KEYWORD_START_ROW As Integer = 6

Private Const FINT_KEYWORD_ITEMNAME_COLUMN As Integer = 12

Private Const FINT_KEYWORD_ITEMVALUE_COLUMN As Integer = 13

'データシート

Private fintGanttChartStartColumn As Integer

Private Const KEY_WORD_MAX_COUNT As Integer = 100 '何件でもいいがとりあえずの総件数

Private Sub Main()

Call InitializeSetting

Call InitializeRowStatus(4)

Call SetRow(4)

End Sub

Private Sub SetRow(ByVal lngRow As Long)

Dim lngDiff As Long

Dim lngEndDiff As Long

Dim rng As Range

Dim rngColor As Range

'範囲１の内容を色塗り

lngDiff = DateDiff("d", fdatePrjStartDate, Sheets(SHEETNAME_DATA).Cells(lngRow, fintBetween1Start))

lngEndDiff = DateDiff("d", fdatePrjStartDate, Sheets(SHEETNAME_DATA).Cells(lngRow, fintBetween1End))

Set rngColor = Sheets(SHEETNAME_MAIN).Range("F7")

Set rng = Sheets(SHEETNAME_DATA).Range(Sheets(SHEETNAME_DATA).Cells(lngRow, fintGanttChartStartColumn + lngDiff), Sheets(SHEETNAME_DATA).Cells(lngRow, fintGanttChartStartColumn + lngEndDiff))

With rng.Interior

.Color = rngColor.Interior.Color

.TintAndShade = rngColor.Interior.TintAndShade

.PatternTintAndShade = rngColor.Interior.PatternTintAndShade

End With

'キーワードを設定（作成中）

' Dim i, j As Long

' Dim strKeyWord As String

' Dim strCellValue As String

' Dim strColumns As String

' Dim strColumnArr() As String

' For i = 0 To 100

' strKeyWord = Sheets(SHEETNAME_MAIN).Cells(i + FINT_KEYWORD_START_ROW, FINT_KEYWORD_ITEMVALUE_COLUMN).Value

' If strKeyWord = "" Then Exit Sub

' strColumns = GetSearchStringCell(strKeyWord, True, CStr(lngRow) & ":" & CStr(lngRow), SHEETNAME_DATA)

' strColumnArr = Split(strColumns, ",")

' For j = 0 To UBound(strColumnArr)

' If Sheets(SHEETNAME_DATA).Cells(lngRow, strColumnArr(j)).Value = strKeyWord Then

' Sheets(SHEETNAME_DATA).Cells(lngRow, strColumnArr(j)).Value = ""

' End If

' Next

End Sub

Private Sub InitializeSetting()

Dim strGanttChartStartDay As String

strGanttChartStartDay = GetSearchStringCell("【ガントチャート開始】", True, "1:1", SHEETNAME_DATA)

fintGanttChartStartColumn = CInt(strGanttChartStartDay)

fdatePrjStartDate = Sheets(SHEETNAME_MAIN).Range("F4").Value

fintBetween1Start = GetColumnNo(Sheets(SHEETNAME_MAIN).Range("F5").Value)

fintBetween1End = GetColumnNo(Sheets(SHEETNAME_MAIN).Range("F6").Value)

End Sub

Private Function GetColumnNo(ByVal strColName As String)

Dim i As Long

GetColumnNo = 0

For i = 1 To 100

If Sheets(SHEETNAME_DATA).Cells(HeaderRow, i).Value = strColName Then

GetColumnNo = i

Exit Function

End If

End Function

Private Function GetStartGanntChartColumn(ByVal strColName As String)

Dim i As Long

GetColumnNo = 0

For i = 1 To 300

If Sheets(SHEETNAME_DATA).Cells(1, i).Value = strColName Then

GetColumnNo = i

Exit Function

End If

End Function

'---------------------------------------------------------

'　指定行の初期化処理を行う

'---------------------------------------------------------

Private Sub InitializeRowStatus(ByVal lngRow As Long)

'Rowの背景色を全て削除

Call ClearBackgroundInRow(lngRow)

'キーワードを削除

Call ClearKeyWordInRow(lngRow)

End Sub

Private Sub ClearBackgroundInRow(ByVal lngRow As Long)

Dim rng As Range

Dim strRange As String

Set rng = Sheets(SHEETNAME_DATA).Range(Cells(lngRow, fintGanttChartStartColumn), Sheets(SHEETNAME_DATA).Cells(lngRow, FINT_MAX_COLUMN_IN_DATE))

'背景色削除

With rng.Interior

.Pattern = xlNone

.TintAndShade = 0

.PatternTintAndShade = 0

End With

End Sub

'---------------------------------------------------------

'　キーワードとして設定されている内容をすべて削除する

'---------------------------------------------------------

Private Sub ClearKeyWordInRow(ByVal lngRow As Long)

Dim i, j As Long

Dim strKeyWord As String

Dim strCellValue As String

Dim strColumns As String

Dim strColumnArr() As String

For i = 0 To 100

strKeyWord = Sheets(SHEETNAME_MAIN).Cells(i + FINT_KEYWORD_START_ROW, FINT_KEYWORD_ITEMVALUE_COLUMN).Value

If strKeyWord = "" Then Exit Sub

strColumns = GetSearchStringCell(strKeyWord, True, CStr(lngRow) & ":" & CStr(lngRow), SHEETNAME_DATA)

strColumnArr = Split(strColumns, ",")

For j = 0 To UBound(strColumnArr)

If Sheets(SHEETNAME_DATA).Cells(lngRow, strColumnArr(j)).Value = strKeyWord Then

Sheets(SHEETNAME_DATA).Cells(lngRow, strColumnArr(j)).Value = ""

End If

End Sub

'---------------------------------------------------------

'　日付セルを検索

'　シート名と行か列位置を指定し検索する。該当した行、列位置をカンマ区切りで返す。

'　　１件ずつループしながらIf関数で１行ずつ判定するより圧倒的に高速

'　　複数条件は対応外なので、この関数で該当行を絞ったうえで、If関数で詳細なチェックをかけたほうが高速になる

'　利用例）GetSearchDateCell("2020/08/01",False,"A:A","データ")

'　戻り値例）4,15,20

'---------------------------------------------------------

Public Function GetSearchDateCell(ByVal datValue As Date, ByVal blnSearchInRow As Boolean, ByVal strRange As String, ByVal strSheetName As String) As String

Dim rng As Range

Dim adr As String

Dim strResult As String

GetSearchDateCell = ""

If blnSearchInRow = True Then

Set rng = Sheets(strSheetName).Rows(strRange).Find(datValue)

Else

Set rng = Sheets(strSheetName).Columns(strRange).Find(datValue)

End If

If rng Is Nothing Then

Exit Function

Else

adr = rng.Address

If blnSearchInRow = True Then

strResult = rng.Column

Else

strResult = rng.Row

End If

If blnSearchInRow = True Then

Set rng = Sheets(strSheetName).Rows(strRange).FindNext(After:=rng)

Else

Set rng = Sheets(strSheetName).Columns(strRange).FindNext(After:=rng)

End If

If rng.Address = adr Then

Exit Do

Else

If blnSearchInRow = True Then

strResult = strResult & "," & rng.Column

Else

strResult = strResult & "," & rng.Row

End If

Loop

GetSearchDateCell = strResult

End Function

'---------------------------------------------------------

'　文字列セルを検索

'　シート名と行か列位置を指定し検索する。該当した行、列位置をカンマ区切りで返す。

'　　１件ずつループしながらIf関数で１行ずつ判定するより圧倒的に高速

'　　複数条件は対応外なので、この関数で該当行を絞ったうえで、If関数で詳細なチェックをかけたほうが高速になる

'　利用例）GetSearchDateCell("2020/08/01",False,"A:A","データ")

'　戻り値例）4,15,20

'---------------------------------------------------------

Public Function GetSearchStringCell(ByVal strValue As String, ByVal blnSearchInRow As Boolean, ByVal strRange As String, ByVal strSheetName As String) As String

Dim rng As Range

Dim adr As String

Dim strResult As String

GetSearchStringCell = ""

If blnSearchInRow = True Then

Set rng = Sheets(strSheetName).Rows(strRange).Find(strValue)

Else

Set rng = Sheets(strSheetName).Columns(strRange).Find(strValue)

End If

If rng Is Nothing Then

Exit Function

Else

adr = rng.Address

If blnSearchInRow = True Then

strResult = rng.Column

Else

strResult = rng.Row

End If

If blnSearchInRow = True Then

Set rng = Sheets(strSheetName).Rows(strRange).FindNext(After:=rng)

Else

Set rng = Sheets(strSheetName).Columns(strRange).FindNext(After:=rng)

End If

If rng.Address = adr Then

Exit Do

Else

If blnSearchInRow = True Then

strResult = strResult & "," & rng.Column

Else

strResult = strResult & "," & rng.Row

End If

Loop

GetSearchStringCell = strResult

End Function

DataGridにコンボボックスを表示する

WPFのDataGridでコンボボックスを表示するのにちょっと詰まってしまったのでメモ。

＜結論＞

　バインドするデータのクラスにコンボボックスの選択肢のインスタンスを作る

＜経緯＞

　１．自動化ツール（以下、RPA）を作ろう

　２．どんな動作をするか定義をしよう

　　　　例）

　　　　　　・マウスを（X,Y）＝(20,200)へ移動

　　　　　　・クリック

　　　　　　・３秒待機

　３．動作定義のためのクラスを定義

public ViewModel ThisViewModel;

public MainWindow()

{

InitializeComponent();

this.ThisViewModel = new ViewModel();

this.ThisViewModel.Title = "タイトル";

this.ThisViewModel.Actions.Add(new Action() { ActionName = "マウス移動", SetValue = "20,200" });

this.ThisViewModel.Actions.Add(new Action() { ActionName = "クリック", SetValue = "" });

this.ThisViewModel.Actions.Add(new Action() { ActionName = "待機", SetValue = "2" });

this.DataContext = this.ThisViewModel;

}

public class ViewModel : ModelBase

{

private string _title;

public string Title

{

get { return this._title; }

set { this._title = value; NotifyPropertyChanged(); }

}

public ObservableCollection<Action> Actions { get; set; }

public ViewModel()

{

this.Actions = new ObservableCollection<Action>();

}

#region PropertyChangeイベントを通知する処理を実装したベースクラス

public class ModelBase : INotifyPropertyChanged

{

#region インターフェイス実装イベント

public event PropertyChangedEventHandler PropertyChanged;

public void NotifyPropertyChanged([CallerMemberName] String propertyName = "")

{

if (PropertyChanged != null)

{

PropertyChanged(this, new PropertyChangedEventArgs(propertyName));

}

#endregion

}

#endregion

/// <summary>

/// 動作定義を登録するクラス

/// </summary>

public class Action: ModelBase

{

private string _actionName;

public string ActionName

{

get { return this._actionName; }

set

{

this._actionName = value;

SetSelectedItem();

NotifyPropertyChanged();

}

private string _setValue;

public string SetValue

{

get { return this._setValue; }

set

{

this._setValue = value; NotifyPropertyChanged();

}

public ComboBoxItem SelectedItem { get; set; }

public void SetSelectedItem()

{

foreach (var item in ComboItems)

{

if(item.Name==this.ActionName)

{

this.SelectedItem = item;

break;

}

public ObservableCollection<ComboBoxItem> ComboItems { get; set; }

public Action()

{

this.ComboItems = new ObservableCollection<ComboBoxItem>();

this.ComboItems.Add(new ComboBoxItem() { Name = "マウス移動", Value = "001" });

this.ComboItems.Add(new ComboBoxItem() { Name = "クリック", Value = "002" });

this.ComboItems.Add(new ComboBoxItem() { Name = "待機", Value = "002" });

}

　４．下記のXAMLにバインド

<Grid>

<DataGrid.Columns>

<DataGridTemplateColumn.CellTemplate>

<ComboBox ItemsSource="{Binding ComboItems}" Width="140"

SelectedItem="{Binding SelectedItem, Mode=TwoWay, UpdateSourceTrigger=PropertyChanged}"

DisplayMemberPath="Name" />

</DataTemplate>

</DataGridTemplateColumn.CellTemplate>

</DataGridTemplateColumn>

</DataGrid.Columns>

</DataGrid>

</Canvas>

</Grid>

　５．結果について

　　　　DataGridのRowにバインドされているデータにコンボボックスの選択肢のインスタンスを持っておく必要がある。（検証不足？）

　　　　ってことはDataTableをバインドして一瞬でできたぜヒャッハー！

　　　　ってのは無理ってことなのかなぁ。まぁ入力値のチェックとかを実装することを考えるとどうしてもクラスを一つ作らざるをえないのかな・・・。

　　　　一覧コピー的なことを一括でやろうとすると少し手間かもしれない。

　６．新規行のコンボボックスでてんやわんや

　　　新規行のコンボボックスにはNewItemPlaceHolderってのがバインドされているため、コンボボックスの選択肢が表示されない。

　　　この例でいうと「引数」列に何らかの値を入れて、行を確定させてあげると選択肢がわいてくる。何とかしたいなーって思ったので下記のサイトを見つけた。

　　　https://social.msdn.microsoft.com/Forums/ja-JP/7b1630de-0982-4191-bd73-3cd060e89439/wpfdatagriddatagridtemplatecolumninitializingnewitemraise?forum=wpfja

　　　このサイトの通りにやると一瞬ちょっとずれは生じるけどなんとかなった。

　７．補足

　　　一覧の件数がめっちゃ多い場合については表示が遅くなることがある。

　　　DataTemplateで作成している列については、ComboBoxがひたすら表示されているだけなので、DataGridのEditモードに移行しなくても触ることができるのが便利な反面、描画速度には問題が出ることがあるかもしれない。

　　　まぁ一覧を1000件表示するぐらいなら問題ないだろうし、そんなに入力できるわけないからいいと思うんだけども。

　　　もしどうしてもしないといけなくなったら、CellTemplateにはTextBlockでも表示しておいて、CellEditingTemplateにComboBoxを配置してあげればいい。

　　　DataGridTextColumnと同じでDataRowが編集モードになれば触るようになる。

VBA 画面タイトルを指定しIEを待機する

VBAで基幹システム（Web）を操作するためのRPAツールを作っている。

画面に値を入力してから、内部処理が完了するまでの間に動作を待機する必要がある。一律でSleepを入れると無駄な時間が発生して動作が不安定になるのでIEの動作が完了するまで待機する処理を実装する。

うまく作れればExcelで簡単なRPAツールを作ることができる。マウス操作、クリック、指定した画面をアクティブにする、コピー、貼り付け、ぐらいは問題なく関数は作れているのであとは組み合わせるだけ。

フリーソフトをインストールする必要がないのでExcelだけ入っていれば使える簡易なRPAになる。のんびりと作っていこうと思う。

＜使い方＞

　・標準モジュールに貼り付け

　・GetIEWindowTitlesでタイトルを確認

　・WaitIEの引数に確認したタイトルを指定（部分一致）

Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

'IEの動作を待機する

Public Function WaitIE(ByVal strCaption) AS Boolean

Dim shells As Object

Dim shell As Object

DIm tgtIE As Object

For i = 0 To 100

Set shells = CreateObject("Shell.Application")

For Each shell In shells.Windows

If TypeName(shell.document) = "HTMLDocument" Then

If InStr(shell.document.Title,strCaption) > 0 Then

Set tgtIE = shell

Exit For

End If

End IF

If Not tgtIE Is Nothing Exit For

Sleep 100

If tgtIE Is Nothing Then

WaitIE = False

Else

'IEが動作中の場合は待つ

Do While tgtIE.Busy = True Or tgtIE.readyState <> 4

DoEvents

Loop

Sleep 100

WaitIE = True

End If

End Function

'WaitIEで指定できる画面を全て取得する

Public Function GetIEWindowTitles() As String

Dim shells As Object

Dim shell As Object

Dim strValue As String

GetIEWindowTitles = ""

Set shells = CreateObject("Shell.Application")

For Each shell In shells.Windows

If TypeName(shell.document) = "HTMLDocument" Then

If strValue <> "" Then strValue = strValue & ","

strValue = strValue & shell.document.Title

End IF

Set shell = Nothing

GetIEWindowTitles = strValue

End Function

TesseractOCRアプリケーションの作成について＜手順４．OCRManager.exeを作成＞

１．NugetでOpenCvSharp4をインストールする

２．画像を切り取る

using (Mat mat = new Mat(strTargetFilePath))

{

// 画像の切り抜き

var mat2 = mat.Clone(new Rect(intX, intY, intWidth, intHeight));

Cv2.ImWrite(strSaveFileName, mat2);

}

　以上。

　世の中には素晴らしいOSSを作ってくれる人がいっぱいいるんだなぁ。

TesseractOCRアプリケーションの作成について＜手順３．TesseractOCR.exeを作成＞

＜TesseractOCRアプリケーションの画面一覧について＞

　　・メイン画面・・・ジョブの状況を一目で確認できるようにする
　　・帳票定義一覧・・・帳票定義の内容を一覧で表示
　　・帳票定義詳細・・・帳票定義の詳細を更新・削除
　　・読取枠定義・・・帳票定義の読取枠の定義を更新・削除
　　・ジョブ定義一覧・・・ジョブの一覧を表示
　　・ジョブ定義詳細・・・ジョブの内容を登録・削除
　　・ジョブ結果項目修正・・・OCRの結果を確認、修正

＜メイン画面＞

　　特に複雑な画面構成ではないので、Gridコントロールを使い、DataGridを配置していく。

＜帳票定義一覧＞

＜帳票定義詳細＞

＜読取枠定義＞

　　この画面がTesseractOCRでは一番手間がかかると思っていたが、InkCanvasを利用すると比較的簡単に処理が記述できた。

　　　＜画像を表示しているXaml部分＞

<InkCanvas Grid.Row="0" Name="ikcReadItemCanvas" Width="{Binding ActualWidth, ElementName=image}" Height="{Binding ActualHeight, ElementName=image}"

HorizontalAlignment="Left" VerticalAlignment="Top" EditingMode="Select" >

<InkCanvas.RenderTransform>

</InkCanvas.RenderTransform>

<InkCanvas.Background>

<VisualBrush.Visual>

</VisualBrush.Visual>

</VisualBrush>

</InkCanvas.Background>

</InkCanvas>

</ScrollViewer>

　＜呼び出し側＞

/// <summary>

/// 画像設定処理（他の画面からこれを呼ぶ）

/// </summary>

/// <param name="filePath">画像ファイルパス</param>

/// <returns>読み込み成功時true</returns>

public bool SetImage(string filePath)

{

// パスが空

if (string.IsNullOrEmpty(filePath))

{

return false;

}

var bmp = new BitmapImage();

bmp.BeginInit();

bmp.UriSource = new Uri(filePath);

bmp.EndInit();

// 画像設定

image.Source = bmp;

return true;

}

＜Borderの表示方法＞

　　　　 var b = new Border();

　　　　 ikcReadItemCanvas.Children.Add(b);

InkCanvas.SetTop(b, 10);

InkCanvas.SetLeft(b, 20);

＜保存するとき＞

y = InkCanvas.GetTop(b);

x = InkCanvas.GetLeft(b);

ViewModelに配列を用意しておいて、Borderをインスタンス化し、List<Border>に別管理しておいて保存時に利用するのがおすすめ。

　一応今回の画面は読取枠を表現するためにFileItemクラスというのを作成しておいて、

プロパティとしてBorderArea（Borderクラス）,Title（Stringクラス）などを用意しておいた。BorderAreaプロパティは、ikcReadItemCanvasのChildrenにAddしてある。

　　例）

　　　　　FileItem i = new FileItem();

ThisViewModel.FileItems.Add(i);

　　　　 ikcReadItemCanvas.Children.Add(i.BorderArea);

InkCanvas.SetTop(i.BorderArea, 10);

InkCanvas.SetLeft(i.BorderArea, 20);

＜ジョブ定義一覧＞

＜ジョブ定義詳細＞

＜ジョブ結果項目修正＞

　　　OCRManager.exeでOCR.exeのために画像を読取枠ごとに切り取っている。この画面はその画像を表示し、データの修正を行えるようにしている。データを修正してからダウンロードでCSVファイル化することができる。

登録: 投稿 (Atom)

田舎のプログラマーになる

Accessがインストールされていない環境でExcelからAccessファイルを作る

バーコード読み取りソフト

Excelで簡易ガントチャートツール

DataGridにコンボボックスを表示する

VBA 画面タイトルを指定しIEを待機する

TesseractOCRアプリケーションの作成について＜手順４．OCRManager.exeを作成＞

１．NugetでOpenCvSharp4をインストールする

２．画像を切り取る

TesseractOCRアプリケーションの作成について＜手順３．TesseractOCR.exeを作成＞

＜TesseractOCRアプリケーションの画面一覧について＞

＜メイン画面＞

＜帳票定義一覧＞

＜帳票定義詳細＞

＜読取枠定義＞

＜ジョブ定義一覧＞

＜ジョブ定義詳細＞

＜ジョブ結果項目修正＞

PowerShellでWPFアプリケーションをBindingするときの注意点

このブログを検索