vb6にてXMLファイル出力のプログラムを作成しています。
XMLファイル内容
<?xml version="1.0" encoding="UTF-8"?>
<root>
<key>AA</key>
<string>aa</string>
<key>BB</key>
<string/>
</root>
上記の<string/>の部分を<string></string>のように出力したいのですが、
どうしても上手くいきません。
下記にソースを記載します。
何か少しでもお分かりになる情報がありましたらご教授願いします。
よろしくお願いします。
Dim xmlDoc As MSXML2.DOMDocument 'XMLドキュメント
Dim xmlPI As IXMLDOMProcessingInstruction 'XML宣言
Dim node(50) As IXMLDOMNode '要素
Dim attr As MSXML2.IXMLDOMAttribute '属性
'XMLドキュメントを作成
Set xmlDoc = New MSXML2.DOMDocument
'XML宣言を追加
Set xmlPI = xmlDoc.appendChild(xmlDoc.createProcessingInstruction("xml", "version=""1.0"" encoding=""UTF-8"""))
'<root>要素を追加
Set node(1) = xmlDoc.appendChild(xmlDoc.createNode(NODE_ELEMENT, "root", ""))
'<key>要素を追加
Set node(2) = node(1).appendChild(xmlDoc.createNode(NODE_ELEMENT, "key", ""))
node(2).Text = "AA"
'<string>要素を追加
Set node(3) = node(1).appendChild(xmlDoc.createNode(NODE_ELEMENT, "string", ""))
node(3).Text = "aa"
'<key>要素を追加
Set node(4) = node(1).appendChild(xmlDoc.createNode(NODE_ELEMENT, "key", ""))
node(4).Text = "BB"
'<string>要素を追加
Set node(5) = node(1).appendChild(xmlDoc.createNode(NODE_ELEMENT, "string", ""))
node(5).Text = ""
'XMLドキュメントの出力
Dim strXMLFile As String
strXMLFile = Format(Date, "yyyymmdd") & Format(Time, "hhmmss")
xmlDoc.save ("C:TEST\TEST.xml")
'終了処理
If Not xmlDoc Is Nothing Then Set xmlDoc = Nothing
If Not xmlPI Is Nothing Then Set xmlPI = Nothing
エクセルマクロで「プリンター名 on Ne○○」○○の数字をマクロで調べることは可能でしょうか。
他のサイトで調べてみました。
Sub Saaample()
Dim tempShell As Object
Dim tempObj As Object
Dim intRow As Integer
Set tempShell = CreateObject("Shell.Application")
intRow = 1
For Each tempObj In tempShell.Namespace(4).Items
If intRow > 1 Then
Cells(intRow, 1) = tempObj.Name
End If
intRow = intRow + 1
Next
Set tempShell = Nothing
End Sub
で実行するとプリンター名は取得できるのですが「Ne○○」まではできませんでした。
プリンターの増減で「Ne○○」が変わってしまうのでその都度修正するのですが
調べ方がわからず上か下の数字に変更して対処してます。
宜しくお願いいたします。
マクロでファイル名（セルの値）を含むPDFファイルを検索し、ファイルが存在していればそのファイルを開きたいのですがうまく行きません。
Sub を含むPDFファイルを開く()
Dim keyword As Variant
Dim myPath As Variant
Dim fName
Dim pname
Set my = ActiveSheet
keyword = my.Range("D2").Value '検索する値
myPath = my.Range("F1").Value 'フォルダパス
fName = Dir(myPath & "*" & keyword & "*" & ".pdf")
pName = (myPath & "*" & keyword & "*" & ".pdf") '"*" & keyword & "*"が良くないのだと思います。
If fName = "" Then
MsgBox ("該当するファイルが存在しません。")
Exit Sub
End If
With CreateObject("Wscript.Shell")
.Run pname, 5 'ここでエラーが出ます。
End With
End SUB
'pname内の"*" & keyword & "*"をkeywordのみにすると完全一致のファイルは開けるのですが部分一致で開きたいため”*”を使用したところエラーが出てしまいます。
また、検索するPDFファイルにスペースが含まれていても開けるようにしたいのです。
どうかご指導のほうをよろしくお願いします。
ｖｂａでフォルダの中のファイルを削除したいのですが
その場合は、
Sub フォルダの中身を全て削除する()
Set myFSO = CreateObject("Scripting.FileSystemObject")
With myFSO
MyFolderName = ConsT_フォルダ名 & "\"
MyFileName = Dir(MyFolderName & "\*.*")
Do While MyFileName <> ""
myFSO.DeleteFile MyFolderName & "\" & MyFileName
MyFileName = Dir()
Loop
End With
Set myFSO = Nothing
End Sub
の様にして、一つ一つループして消していかないとダメでしょうか？
フォルダは残して、カラのフォルダにしたいです。
OS：Windows10 Pro 64bit
Office2016 Home & Business Premium
Excel2016で郵便番号を入れただけで住所を出力する方法を教えてください。
9F：9I 郵便番号、9J：9Z 住所
Microsoft IMEIMEのシステム辞書には郵便番号辞書は入っています。
出来れば関数を使った方法はないでしょうか？
OS：Windows10 Pro 64bit
Office2016 Home & Business Premium
Excel2016で郵便番号を入れただけで住所を出力する方法を教えてください。
9F：9I 郵便番号、9J：9Z 住所
Microsoft IMEIMEのシステム辞書には郵便番号辞書は入っています。
出来れば関数を使った方法はないでしょうか？
