Power Automate DesktopでDTDと名前空間があるXMLファイルを読む

-

PowerShellで作ってあったXMLファイルを処理するプログラムをPower Automate Desktopに変換しようとしたところ、なかなか手こずりました。


PowerShellでは簡単

PowerShellのコードは次の通りです。

    foreach ( $sXmlFile in Get-ChildItem -Path ( Join-Path $uDateFolder.fullname "*NFM.XML" ) -File )
    {
        $uXml = [xml](Get-Content $sXmlFile)

        $uDocumentName = $uXml.procedure.'procedure-infomation'.'document-name'.'#text' #書類名

        if ( $uDocumentName -ne "発送目録" )
        {
            $uApplicationNumber = $uXml.procedure.'procedure-infomation'.'application-reference'.'application-number' #事件番号
            $uReferenceId = $uXml.procedure.'procedure-infomation'.'application-reference'.'reference-id' #整理番号
            $uLaw = $uXml.procedure.'procedure-infomation'.law #四法
            $uDivision = $uXml.procedure.'procedure-infomation'.'time-for-responce'.division #応答期間 区分
            $uPeriod = $uXml.procedure.'procedure-infomation'.'time-for-responce'.period #応答期間 期間
            $uDispatchNumber = $uXml.procedure.'procedure-infomation'.'dispatch-number' #発送番号
            $uTime = $uXml.procedure.'procedure-infomation'.'dispatch-date'.time #受信時刻

            uAddMessage (uFormat $uLaw $uDocumentName $uReferenceId $uApplicationNumber $uDivision $uPeriod $uDispatchNumber $uTime)
        }
    }

これで問題なくデータを取得できていました。

（テキスト要素を指定してみたり指定しなかったり、procedure-infomationまで共通だから省略すればいいのにしていなかったりと、今見るとお恥ずかしい）


DTDを含んだXMLを開けない

そのため、早速「ファイルから XML を読み取ります」を実行してみたところ、次のエラーが発生しました。

Microsoft.Flow.RPA.Desktop.Modules.SDK.ActionException: ファイル C:\NKTemp\Sample.XML に有効な XML ドキュメントが含まれていません ---> System.Exception: セキュリティ上の理由から、DTD はこの XML ドキュメントでは使用できません。DTD 処理を有効にするには、XmlReaderSettings の DtdProcessing プロパティを Parse に設定し、XmlReader.Create メソッドにその設定を渡してください。 ---> System.Exception

   --- 内部例外スタック トレースの終わり ---

   --- 内部例外スタック トレースの終わり ---

   場所 Microsoft.Flow.RPA.Desktop.Modules.XML.Actions.ReadXmlFromFile.Execute(ActionContext context)

   場所 Microsoft.Flow.RPA.Desktop.Robin.Engine.Execution.ActionRunner.Run(IActionStatement statement, Dictionary`2 inputArguments, Dictionary`2 outputArguments)

DtdProcessing を検索してみるとどうやらPower Automate DesktopのXMLは.NETのXML機能を使っているようでした。

XmlReaderSettings.DtdProcessing プロパティ

Power Automate DesktopのアクションにはParseを有効にする方法は見当たらないので、これはお手上げです。

仕方がないので、やりたくはないけれど、XMLファイルからDTD部分を削除して処理することにしました。

XMLファイルを普通にテキストファイルとして読み取り、読み取った内容を次のアクションのように置換し、再度別の一時ファイルに保存してからXMLのアクションで読み込みました。

DTDを無視するオプションを用意してもらいたいです。

なお、このファイルはExcelで開いても同様のエラーが発生します。


名前空間が付いた要素を読む

ファイルが読めるようになったので、後は要素の値を読み込むだけと思ったらこれが難航しました。

そのままでは読めない

XMLデータから特定の要素の値を取得するには、XPathクエリで指定します。ファイルやディレクトリをパスを使って指定するのと同様です。

そのため、PowerShellと同じように、/procedure/procedure-infomation/document-nameと指定してみましたが、エラーが発生して読み込めません。

「XPath 式は要素を返しませんでした。」と言われてしまいます。

今回処理するXMLファイルの要素には次のように jpopc: という文字が付加されています。

<?xml version="1.0" encoding="Shift_JIS"?><jpopc:procedure xmlns:jpopc="http://www.jpo.go.jp">
<jpopc:document-type jpopc:unconfirmed-state="1">I21020</jpopc:document-type>
<jpopc:computer-name>PC0001</jpopc:computer-name>
<jpopc:user-name>online-tm</jpopc:user-name>
<jpopc:distinction-number>111111111</jpopc:distinction-number>
<jpopc:relation-file>
<jpopc:input-check-result></jpopc:input-check-result>
<jpopc:application-receipt-list></jpopc:application-receipt-list>
</jpopc:relation-file>
<jpopc:procedure-infomation>
<jpopc:result>
<jpopc:software-message></jpopc:software-message>
<jpopc:communication-result>正常</jpopc:communication-result>
<jpopc:fd-and-cdr></jpopc:fd-and-cdr>
</jpopc:result>
<jpopc:law>1</jpopc:law>
<jpopc:document-name jpopc:document-code="B999">登録査定</jpopc:document-name>

試しに、XPathにjpopc:もつけてみましたがだめでした。

名前空間

これは一体？と思い、調べてみると、この jpopc: のようなものはXML名前空間（NameSpace）というものでした。

XML名前空間の簡単な説明　 KANZAKI

そして、実際にXpathで指定する方法はこちらのページが参考になりました。こちらはRSSのXMLについて解説しているページですが、基本的なところは同じなようです。

XPathにおける名前空間の扱い　東京電機大学

次のように指定すれば名前空間を指定せずに要素を指定することができます。

*[local-name()='procedure']

説明は上のページに書かれていますが、 * ですべての要素を選択して、その中からローカル名が procedure であるものを指定しているということになります。

サンプル

実際にアクションに指定したのは次の通りです。

まずは procedure-information までを uXPathPI 変数に納めます。

uXPathPI 変数を使ってそこから先の部分を指定します。

これは次のようにルートから一気に書いても同じです。長くなってわかりにくくなりますが。

/*[local-name()='procedure']/*[local-name()='procedure-infomation']/*[local-name()='document-name']

XPathに名前空間は指定できない

プログラム中で名前空間を定義して、XPathに指定するやり方が上のページの下の方に説明されていますが、Power Automate Desktopのアクションでこれは処理できないと思います。

次のサイトでは、.NET を使う場合のXPathと名前空間の説明が書かれていて、こちらも同様にプログラム中で名前空間を定義してからXPathに指定しています。

連載　.NETで簡単XML　第5回 DOMとXPath　@IT

複数の名前空間を持つXMLに対応できない

私の場合は上の方法で回避できましたが、一つのXMLに複数の名前空間が出てきてなおかつ要素名が重複した場合には対処ができなくなります。例えば次のような場合です。

jpopc:procedure と usopc:procedure が混在している場合。

この場合現在のPower Automate Desktopだとお手上げなので、別の処理系を使ってその結果を読み込むことになるでしょう。

DTDを含めて今後の対応に期待したいところです。


実際のプログラム

実際の処理をするフローは次の通りです。

あるフォルダー中のXMLファイルを順次処理しています。

DTDを削除して、それからXMLを読み込み、要素の値を取得しています。


コードは次の通りです。（フローに張り付ければ普通のアクションとして操作できます）

SET uFolderPath TO $'''C:\\temp\\20220125'''
Folder.GetFiles Folder: uFolderPath FileFilter: $'''*NFM.XML''' IncludeSubfolders: False FailOnAccessDenied: True SortBy1: Folder.SortBy.NoSort SortDescending1: False SortBy2: Folder.SortBy.NoSort SortDescending2: False SortBy3: Folder.SortBy.NoSort SortDescending3: False Files=> Files
LOOP FOREACH uXMLFile IN Files
    File.ReadTextFromFile.ReadText File: uXMLFile Encoding: File.TextFileEncoding.DefaultEncoding Content=> FileContents
    Text.Replace Text: FileContents TextToFind: $'''<!DOCTYPE jpopc:procedure SYSTEM \"v4crc00.dtd\" []>''' IsRegEx: False IgnoreCase: False ReplaceWith: $'''%''%''' ActivateEscapeSequences: False Result=> Replaced
    File.GetTempPath TempFile=> TempFile
    File.WriteText File: TempFile TextToWrite: Replaced AppendNewLine: False IfFileExists: File.IfFileExists.Overwrite Encoding: File.FileEncoding.DefaultEncoding
    XML.ReadFromFile File: TempFile Encoding: XML.FileEncoding.DefaultEncoding XmlDocument=> XmlDocument
    File.Delete Files: TempFile
    SET uXPathPI TO $'''/*[local-name()=\'procedure\']/*[local-name()=\'procedure-infomation\']'''
    XML.GetXmlElementValue.GetElementValue Document: XmlDocument XPathQuery: $'''%uXPathPI%/*[local-name()=\'document-name\']''' TextValue=> uDocumentName
    IF uDocumentName = $'''発送目録''' THEN
    ELSE
        XML.GetXmlElementValue.GetElementValue Document: XmlDocument XPathQuery: $'''%uXPathPI%/*[local-name()=\'application-reference\']/*[local-name()=\'application-number\']''' TextValue=> uApplicationNumber
        XML.GetXmlElementValue.GetElementValue Document: XmlDocument XPathQuery: $'''%uXPathPI%/*[local-name()=\'application-reference\']/*[local-name()=\'reference-id\']''' TextValue=> uReferenceId
    END
END


これを読まれている方がうまくデータを処理できることを祈ります。


コメント

  1. 匿名2022年10月30日 19:54

    私も同じ方法で読み込んでいました。

    返信削除
    返信
    1. NK2022年10月31日 23:07

      コメントをありがとうございます。早く、簡単に読み込めるようになってほしいものです。

      削除

コメントを投稿

アクセス数の多い投稿

セキュリティ対策ソフトのノートンが詐欺ソフトまがいになってしまってショック

-
イメージ
夜の10時に風呂に入っていると、80近くになる実家の母から、突然ノートンの表示が出たけどどうすれば、という連絡がありました。表示されたメッセージは次の通りです。 ！　お使いのパソコンで462件の破損されたレジストリが検出されました。パソコンをクリーンアップしてパフォーマンスを向上させましょう。 レジストリの問題は、パソコンの速度低下、フリーズ、さらにはクラッシュの原因となります。ノートンTMユーティリティーズ　アルティメットを入手して、レジストリの問題の解決とパソコンのパフォーマンス向上に役立ててください。 ノートンがこんな、レジストリが壊れているからと不安をあおって、別の製品を買わせる詐欺ソフトまがいのメッセージを出してくるとは。 親曰く「レジストリが破損て驚いた」（原文ママ）。わけのわからん高齢者に無用なストレスを与えています。 大体レジストリーとか言って、それの意味が正しく分かる一般人がいるか！（怒） ブロードコムに買収された法人向けのシマンテックはひどいことになっているけれど、個人向けのノートンライフロックは大丈夫みたいと思っていたら、こんなことになるとは。 もう、セキュリティ製品を買うのはやめて、Windows に最初からついてくる Microsoft Defender でもいいのかもしれないと思う今日この頃です。そのほうが安定してるし、こういう余計な問題も起きないし。 2022/9/1 追記　Defenderに切り替えてみました。 さらばノートン 2022/01/13 追記 悩んでいる方がいらっしゃるようなのでこのメッセージの解説をしておこうかと思います。 レジストリーとは Windows や 各種アプリ（ソフト）は設定などをWindowsが管理するデータベース（ファイル）に保存するものが多いです。そのデータベースがレジストリーです。 ソフトをインストールするときや、設定を変更する際などに書き換えられます。 設定等が保存されているため、これが壊れるとWindowsやアプリの挙動に支障をきたす可能性があること自体は確かです。 どうして壊れるのか レジストリーが壊れる原因は色々考えられます。 Windowsやアプリの不具合で作成や更新に失敗した 作成や更新中にWindowsやアプリが異常終了して中途半端になった データを保存する部品（SSDやHDDなどのドラ
続きを読む

突然滅茶苦茶遅くなったPCがWindows Updateのキャッシュクリアで復活

-
イメージ
職場のPCが滅茶苦茶遅くなって操作できないというので色々試していった結果Windows Updateのキャッシュクリアで解決しました。 とにかく遅い PCを起動してサインインしてしばらくの間はそれなりに動作するのですが、時間の経過につれて動作が重くなってくる感じです。 特にタスクバーの反応が遅くなります。 タスクマネージャーとかコンピューターの管理を開いても、ずいぶん経って忘れたころに開いてくる感じです。 ひどくなってくると、もう全然反応がありません。 サインアウトや再起動がうまく行かない場合もありました。 ただし、何もいじらないと後からでも動作する場合もありました。 システムの復元も効果なし 12/3に発生して、Windowsの機能「システムの復元」を試みると12/1と、12/3の9時くらいに復元ポイントがありました。9時くらいのものが怪しかったので復元を行いましたが、残念ながら効果がなく、しかも12/1の復元ポイントまで消失しました。 結果的にはプログラムの問題ではなくデータの問題だったため効果がなかったということになります。システムの復元の最後にユーザーのデータには影響を与えませんみたいなメッセージが表示されることからも、そうなのでしょう。 今回の教訓としてはポイントが消えるかもしれないので復元するなら思い切って前の日にさかのぼったほうが良いという事でした。 [Windows 10] システムの復元を実行する方法を教えてください。 　富士通 アンインストールもうまく行かない たまたまシマンテックのライセンス切れが重なったため、シマンテックが原因かと思いアンインストールを試みました。しかし、途中までは進むものの取り消されてしまい削除できません。 ブロードコム（シマンテックを買収）から削除ツールCleanWipeを入手して削除してみましたが、復旧せずシマンテック以外が原因だと思いました。 Cryptographic ServicesとWindows Update タスクマネージャーでCPUの使用状況を見ていると、100%近くになって遅いというのではありませんでした。使用率は高くても数十％。低い時は十数％くらいでしょうか。 見ていると周期的にCryptographic Servicesが高い時は40%くらいまでCPUを消費します。そして、たまにWindows Upd
続きを読む

NEC Aterm WX5400HP をセットアップ

-
イメージ
しばらく前にWi-Fi6対応ルーターを購入しました。 次期主力Wi-Fiルーター NEC Aterm WX5400HP 購入したはいいけれど、ずっと放置していて、昨日ようやく箱を開けてセットアップを開始しました。 Wi-Fi設定 とりあえずPCとルーターのLANポートを有線で接続し、Wi-Fiの設定を行いました。 うちは、ワンフロアの60m2程度の部屋なので、バンドステアリングやメッシュWi-Fiを使うほどではなく、また2.4GHzのみしか対応しない古いプリンターや体重計もあるので、これらは無効にしています。 ちなみに、バンドステアリングは、高速な5GHzと障害物に強い2.4GHzを自動で切り替える機能です。ルーターを設置したリビングなら5GHz、寝室なら2.4GHzという具合にいい具合に切り替えてくれるという事になっています。 メッシュは複数のアクセスポイント（Wi-Fi親機）に対してひとつの SSID を使って、家じゅうからアクセスできる機能です。リビングは NK-Living, 寝室はNK-BedroomみたいにSSIDを使い分けることなく、両方のルーターにNKでアクセスでき、使う場所によって自動的に通信状態の良いルーターを切り替えてくれる便利機能です。 PCやスマホはともかく、それら以外のデバイスはパスワード入力が厄介なので、これまで使っていたSSIDとパスワードを設定しました。 引っ越し機能を使うと便利なのですが、WEPなどの今となっては危険な設定を継承しかねないので私は使いません。利用はお勧めしません。 IPv4 over IPv6も自動でOK WX5400HPはASAHIネットのIPv4 over IPv6をサポートしているルーターなので、Wi-Fi以外のところはデフォルトのままで接続してみました。その結果次のように自動で認識されました。 動作モードはtransixとなり、IPv6動作モードも使用するになりました。 自動的にv6 コネクトが選択され、IPv4も通信可能になりました。 さすがはサポートされているだけあります。 ホームセキュリティーは無効 「トレンドマイクロホームネットワークセキュリティ™」がついていますが、私は即無効にしました。経験上、ゲートウェイ（ルーター）にこれをやらせると問題が起こるので。 FortigateとかMcAfeeの法人向
続きを読む

Windows セキュリティーのビックリマークが消えない

-
イメージ
ノートン削除でWindowsセキュリティにビックリマーク 実家のノートン360をアンインストールしたところ、タスクトレイにある Windows セキュリティーの盾（シールド）型アイコンに「！」が表示されるようになりました。Windows 11です。 マウスポインターを持っていくと、「Windows セキュリティ - 処置をお勧めします」と表示されます。 ところが、クリックしてセキュリティの概要を開いてみても、問題なさそうです。 ノートンを再インストールするとグリーンのチェックマークになりましたが、アンインストールするとまた黄色のビックリマークになります。 私のPCはアンインストールしても問題なかったのでPC次第なのでしょう。 解決方法 実家のPCは次の方法で解決しました。 Windowsのスタートボタンを押します。（左の四角） 「設定」を開きます。 「プライバシーとセキュリティ」を選び、「Windowsセキュリティ」をクリックします。 「アプリとブラウザーの制御」をクリックします。 「評価ベースの保護」が、有効になっていなかったので有効にして、保護設定をすべて有効にしました。 有効後 これで盾アイコンのビックリマークは消えました。 Web閲覧時に危険 SmartScreen（Web閲覧が保護）が有効になっていなかった可能性があるので、これは確認してよかったです。 それにしても、タスクバーのアイコンから開いたWindowsセキュリティの画面に「アプリとブラウザーの制御」が表示されていないのはバグではないかと思います。以前は出ていたような気がします。 2022/10/9 追記 今、タスクバーの盾アイコンをクリックしたら、「アプリとブラウザコントロール」が表示されるようになっていました。やはりなにかのバグだったのでしょう。 Windows 11 は22H2にアップデート済みです。 2022/11/26 追記 別件で知人のPCのメンテナンスを行ったところ、この現象が発生していたので、早速、上の手順で解消しました。 ESETがインストールされていましたが、期限切れだったのでアンインストールしてDefenderに切り替えました。アンインストールによって生じたのか、元々こうだったのか記憶があいまいです。 Windows 11 は22H2になっていませんでした。 スマートアプリコン
続きを読む

ChatGPTが日本語からVBAのコードを生成できてたまげる

-
イメージ
最近噂のChatGPT。大学受験問題も解ける賢いAIだとか。そこで私も試してみました。 指示は、「単価、数量、金額の列を持つExcelのテーブルを一行ずつ読み、金額を計算して更新するVBAを作りなさい。ListObjectとFor eachを用いなさい」です。 結果は次の通り正しく回答されました。 マジかと思いました。 自然言語からコードが生成されるだけで驚きですが、金額を計算しなさいと言っただけで、単価と数量を乗算しています。 試しに実行 上の画面のテキストをコピペしたものです。 ExcelのVBAでは、ListObjectを用いることで、Excelシート上のテーブルを操作することができます。以下は、単価、数量、金額の列を持つExcelのテーブルを一行ずつ読み、金額を計算して更新するVBAの例です。 Sub UpdateTable()   Dim tbl As ListObject   Dim row As ListRow      ' テーブルを取得します   Set tbl = ActiveSheet.ListObjects("Table1")      ' テーブルの各行を取得します   For Each row In tbl.ListRows     ' 単価と数量から金額を計算します     Dim unitPrice As Double     Dim quantity As Integer     unitPrice = row.Range(1, 1).Value     quantity = row.Range(1, 2).Value     row.Range(1, 3).Value = unitPrice * quantity   Next row End Sub 上記のVBAを実行すると、単価と数量から金額を計算し、テーブル内の金額の列が更新されます。 ListObjectを用いることで、Excelシート上のテーブルを簡単に操作することができるようになります。また、For Eachステートメントを用いることで、テーブルの各行を順番に取得し、処理を行うことができます。 できています。実際にテーブルを作って実行してみました。 実行結果 ちなみに、quantityのデータ型がintegerで最大値が小さい
続きを読む

Amazon Prime Videoで4K UHD映画を検索する方法

-
イメージ
ついにSONYの4K HDRテレビを購入したので、4K映画を物色中です。 77型有機ELテレビ BRAVIA KJ-77A9G を購入 ところが、Amazon Prime Videoで4K映画を検索する方法が不明でした。 検索ボックスに4Kと入れると、4Kがらみの雑多な商品まで表示されてしまいます。 UHDを指定してもシューズなどが一緒に出てきてしまいます。 4K UHDで検索すればだいぶ絞られますが、それでも4Kではないシンゴジラや、Blu-rayメディアの商品まで表示されてしまいます。 検索方法 次の手順で、4K動画のみを検索できます。 Amazonのトップページで、「すべて」をクリックし、「Prime Video」を検索します。 何も入力せずに、右側の虫メガネアイコンをクリックします。 左側に検索条件が表示されるので、下の方にある「4K超高精細[4K UHD]」を選択します。吹替を観たくない人は字幕にチェックを入れるとよいでしょう。 これで、4K UHDの動画のみを検索することができます。 ただし、4K表示ができないパソコンでは選択肢がないかもしれません。iPadでは表示されませんでした。無料で見られる会員特典以外の4K動画は500円や550円と通常より高いので、見られない動画は表示されないようになっているかもしれません。 4Kテレビによってはテレビ搭載のWebブラウザで検索できるかもしれません。 品揃えは少ない それにしても4K映画の品ぞろえの少なさに驚きます。 SF映画で有名なものは、ジュラシックワールドとハムナプトラのみ。 アクションにしてもランボーの修復版や、ジョンウィック、ワイルドスピードの一部作品他と少ないです。 映画ではなくAmazonオリジナルのジャックライアンは友人によると面白いようですが。 2021/12/18追記　Amazonオリジナル以外の普通の映画を検索するなら次のように指定すると良さそうです。相変わらず少なくて多少入れ替わりがあるようです。 BRAVIA A9GではUHDマークが表示されない 4Kモニターを接続したPCで検索した映画にはUHDのマークが表示されます。 これをウォッチリストに追加して、テレビの内臓アプリで見たところ、映画自体は表示はされました。 しかし、テレビの方ではUHDのマークが表示されません。これはテレビではUH
続きを読む

Excel 2019 クエリが原因で日本語入力の一文字目が勝手に確定する

-
イメージ
既存ファイルにシートを追加してセルに文字を入力していったところ、なぜか一文字目が勝手に確定されてしまうという現象に遭遇しました。 一文字目が勝手に確定される セルに、例えば「支払い」と入力しようとすると、shiharaiのsを入れた時点で確定されてしまい、「s いはらい 」のようになってしまいます。 消しては入力やり直しなので異常に入力しづらい。大量に入力する必要がある方は絶望を感じるでしょう。 クエリが原因 新しいファイルでは問題ないのでどうやらファイル依存の問題らしいということがわかりました。 新しいファイルを作って、問題のファイルにあるシートを一つずつ移動していったところ、あるシートを移動したところで新しいファイルでも発生することがわかりました。 それは銀行のサイトにある為替レートのページを参照しているクエリが含まれるシートでした。 そこで、「クエリ」と「確定」で検索したところ、なんと既に先人が原因を特定して レポート してくれていました。 それによると、「データ」メニューの「クエリと接続」グループにある「クエリと接続」をクリックして表示される画面で、クエリが選択されたまま保存されていると発生するということでした。 実際に問題のファイルを開いてみると、確かにクエリが選択された状態になっていて、選択を解除したところ改善しました。こりゃわからんわ。 新しいファイルでクエリを作っても簡単に再現可能です。 PowerQueryはExcel 2016で標準搭載されたようなので、通常はExcel 2016か2019で遭遇する問題だと思います。 回避方法 選択を解除して保存 私がこの問題に遭遇したときは、クエリの選択を解除して保存するだけで解決し、次回開いた時にも再現することはなかったと記憶しています。 ところが、今試してみると、選択解除して保存しても、次回開くとまた選択された状態になっていて、文字入力に支障が出ます。バージョンの違いかと思い、職場のPCでも試してみましたが同様です。私の記憶違いだったのか、その後のバージョンアップで悪化しているのか… クエリと接続画面を表示 現状では、「クエリと接続」画面を表示させると（選択を解除しなくても）現象は収まります。 ファイルを開くときにマクロで自動的に選択を解除する方法も考え
続きを読む

Excel VBAからODBCを使ってデータを簡単に取得する

-
イメージ
VBAから ADO を使わずにODBC経由でデータベースにアクセスする方法です。 サンプルデータベース 次のようなアクセスのデータベースがあるとします。 テーブル名は「商品マスター」 カラム名は、ID, 商品名, 金額 保存してあるファイルは C:\Test\SampleDB.accdb DSNの用意 このファイルにアクセスするための DSN を作成します。（作成方法は後述） VBAの実行 Excel でシートを開き、次のプロシージャーを実行します。これはテーブルを作成するプロシージャーなので、最初に一回実行するだけです。 Private Sub uCreateTableWithQuery()     Dim uWS As Worksheet     Dim uList As ListObject          Set uWS = ActiveSheet     Set uList = uWS.ListObjects.Add( _         SourceType:=xlSrcQuery, _         Source:="ODBC;DSN=NK Test", Destination:=Range("A3"))          uList.DisplayName = "ExcelProductMaster" End Sub DSN=にDSN名を指定します。この例では、NK Test。 Destination はテーブルの左上を配置するセルです。この例ではA3セル。 DisplayName はテーブル名を指定します。この例ではExcelProductMaster。 実行すると次のようにテーブルが作成されます。テーブルはQueryTableに接続され、QueryTableはDSNを利用可能です。 次のプロシージャーを実行します。 Public Sub uRefleshQueryTable()     Dim uList As ListObject     Dim uSQL As String          Set uList = ActiveSheet.ListObjects("ExcelProductMaster")          uSQL = "SELEC
続きを読む

Microsoft Flight Simulator (2020)のPS4コントローラー設定

-
イメージ
先日14年ぶりに、MicrosoftのFlight Simulatorの新しいバージョンがリリースされました。現在、Microsoftの Xbox Game Pass for PCを契約すると期間限定でひと月100円でプレイできるので試すには絶好の機会です。 とりあえず手持ちのPS4コントローラー(DUALSHOCK 4)で飛ばす方法を書いてみました。 水陸両用機でベネチアを飛行中 PS4コントローラーはサポートされていない コントローラーをPCに接続しても、デフォルト状態では全く操作ができません。調べるとキーの割り当てが行われていませんでした。サポートされていないデバイスはこの状態になるようです。 サポートされているデバイスは次のページに書かれています。Xboxのコントローラーはありますが、PS4のコントローラーは書かれていません。 Peripherals compatibility 基本的なキー割り当ての方法は次のページに書かれています。 Peripheral Control Settings Overview and FAQ PS4コントローラーをPCに接続 接続方法については次のページを参考にするとよいでしょう。 Windows 10でPS4の “DUALSHOCK 4” を使う方法 なお、USBで有線接続すれば、Bluetoothで認識させる必要はなく即認識されます。ケーブルが気にならなければこちらの方法が簡単です。充電もされるし。 私のPCでは「ゲームコントローラーの設定」が「デバイスとプリンタ」画面に表示されませんでした。検索ボックス（ウィンドウズボタンの隣にある「ここに入力して検索」）に入力すれば表示されます。 PS4コントローラーの設定方法 コントローラーの各部名称は次のページを参照してください。 PlayStation®4 ユーザーズガイド　ワイヤレスコントローラー（DUALSHOCK™4） ボタンと番号の対応は概ね次のページに紹介されています。 DUALSHOCK 4をPCで使う標準ドライバで 初回の設定時には、保存をするかどうか聞かれると思います。適切に保存してください。 （画像が小さい場合はクリックすると拡大されます） メイン画面でOPTIONSを選択します。 飛行中にESC
続きを読む

Teamsで日本語入力すると左上に変換ウィンドウが出る

-
しばらくまえからTeamsのチャットに日本語入力しようとすると直接入力ができずに画面の左上に変換ウィンドウが出てきてしまうようになりました。 私のモニターは30型なのでTeamsウィンドウからかなり離れていて非常に入力しづらい。 使っているうちに直るときもあるけれどしばしば発生してイラッとしていました。 そうこうするうちに職場内からも問い合わせがあったのでMicrosoftに問い合わせてみました。 その結果、Microsoftでも現象を再現することができ、TeamsとIMEの問題であり、修正が必要だと認識しているけれど時期は未定という事でした。 回避策としては、どれでもいいから 他のウィンドウを一回クリックすれば、直接入力できるようになるという事でした。 他のウィンドウ（ブラウザや他のアプリ）をクリックしてからTeamsに戻って日本語入力すると確かに直接入力できるようになりました。（デスクトップをクリックしても解消しました） 一回解消すれば、Teamsを再起動するまでは問題は再現しないようです。普通は再起動しないので一日一回クリックすれば回避できるということになります。 ひと手間かかるとはいえ、手軽に確実に回避できるようになったのは嬉しいです。
続きを読む