雑記帳
1 | 2 | 3 | 4 | 5 | 最初次のページへ >>
2019-06-13 01:19:57

...

テーマ:ブログ

生きている。

 

幸せ、生きがい、喜び、楽しみ、そんなことを、全て、失ったと感じながらも、

まだ、生きている。

 

そして、今、今を生きている。

 

幸せ、生きがい、喜び、楽しみ、それが、何なのか、わからないけど、

それを、知るために、

 

今、できることをしながら、生きている。

 

 
2019-06-11 21:36:17

...

テーマ:ブログ

今、生きている、この時間を、

たくさんの人に、感謝だ。

 

本当に、そう思う。

 
2019-05-29 23:23:07

...

テーマ:ブログ

本当に、私の、この10年と言う時間は、何だったのだろう・・・。

 

と、思った。

 

 
2019-05-28 22:03:20

...

テーマ:ブログ

俺の、幸せって、いったい何だろう。

 
2019-05-27 23:57:42

...

テーマ:ブログ

俺は、いったい何の為に、生きているのだろう...。

 
2019-05-25 00:00:06

...

テーマ:ブログ

人間は、

 

最も、美しく

最も、醜い

 

生き物。

 

そんな風に、思った。

そんな風に、思てる。

 

そんな自分が、たまらなく、苦しい。

 

 
2019-04-16 20:01:13

思ったこと

テーマ:ブログ

前の記事投稿から、半年ちょいだけど、

その間に、色々と、思う所や、色々あって、

本当に、色々あって、今、思ったこと。

 

思うこと。

 

なんの成果も結果出せていないから、

結局のところ、言い訳や負け惜しみと、

認識しながらも・・・。

 

「言ったもん勝ち(言われたもん負け)」

 

みたいな感じになっている気がして、すごく、もやっとする。というか

もやっとしている。

 

まぁ、仕方ないかな。なんとも、思うけど・・・。

 

 

 

 

 
2018-08-07 01:29:19

10年以上も前の自分の投稿を読んで

テーマ:ブログ

39歳に今年なった。

 

2度目の離婚が決まり、正直、精神的に、かなり不安定で・・・。

ただ、嫁さんのおかげで、自分の至らなさを自覚することができ、

こんなことを言うのは、アレだけど、本当に素晴らしい人と、結婚できて、

時間を共有することができて、俺は、本当に幸せだったんだな。と、

改めて、実感した。

 

それと、同時に、やっぱり、嫁さんは、スゴイと、思った。

 

そして、こんな状況になっても、こんな俺のことを、今まで愛してくれていたのだと、

俺の勘違いかもしれないが、俺は、そう感じれたし、思えた。

 

今、嫁さんが何気なく、前にくれた、俺の好きなリキュールを飲んでる。

今まで、普通に飲んでいたから、もう、残り少ない。

急に、寂しさというか、切なさというか、尊さ、そんな感覚が急に、くる。

 

こうやって、自分の思いを表にだすのは、本当に10年以上ぶりだ。

 

なぜ、昔のブログ、今もあるかな?

 

なんて、思ったのか、わからない。けど、今、さっき、読み返して見て、

20代半ばから、今の嫁さんに会うまでの20代後半までの記事・・・。

今でもだけど、今以上に、中二病というか、それこそ、今以上に、自分本位で、周りを見ているようで、

見ていないというか・・・。病んでたんだなぁ。と、思った。

 

そんな、思いと、同時に、俺、この10年で、だいぶ変わったんだな。と、

ダメ人間なところは、変わっていないけど、愛されていて、かけがえのない、そんな存在もできて、

気がつけば、とがっているところは、丸くなり・・・。

そんな中で、結局、俺は、俺の親というか、俺自身の本来の感覚が、強く無意識に現れていたんだな。

と、思うところもあった。

 

ただ、結局、俺は、周りを見ているようで、結局、自分しか観れてなく、自分本位で・・・。

 

そこは、口数や行動が少なくなっただけで、なんら、昔と変わっていないんだな。と、

正直、そう、強く思えた。

 

昔の記事を読み、今この状況で、ぜんぜん、変わっていな。疑心暗鬼や思い込み、

不安、負のスパイラルで、どんどん、勝手に自滅していくところ。

そこは、何も変わっていないんだな。と思えた。

 

ただ、今の嫁さんと出会って、好きになってもらって、俺も好きになって、愛情を注いでもらって、

愛情を注いでいて、育んでいて、今は、こうなってしまったけど、それは、

まぎれもない、真実だった。ありがたいと、思った。

 

俺をこんなにも、一般的な、いわゆる、普通の人間に幸せ、感情を与えてくれたこと、

俺に、色々と、気づきを与えてくれたこと。かけがえのない存在であったり、時間出会ったりを

くれたこと。

 

こんな状況でも、俺に気づかせてくれたこと。

 

本当に、できた嫁で、スゴイと正直に思える。ありがとう。

 

色々あったんだよな。でも、思い出せないくらい。俺は、きっと、何もしていなかった。

できていなかった。していたつもりで、結局は、思い出づくりできていなかったんだな。

日常のことは、たくさんしていたけど・・・。

 

10年前と今、明らかに、違う。人を愛することができた。

かけがえのないものができた。

それを、事実、世間として、現実として、失ってしまったけど、

それを、自分の至らなさと、自覚できていること。自覚させてくれたこと。

自分を客観的に、みれるというか、俯瞰した感じでいられること。

これは、きっと、彼女、嫁さんにあって、成長した、今の俺の姿なんだと思う。

 

ただ、正直、ここ、数週間、そして、今も、疑心暗鬼になって、うわーーーー。って、

なってしまうところ、持ってしまうところは、昔と一緒だな。と、思う。

 

今、これから先、正直わからないけど、ここ数年で、変わってしまった。この

気づけなかった、気づかないふりをしていた?ある意味アホな自分とは、

おさらばして、ある意味、いい意味で、昔の自分のある種の自分らしさというものを

今、また、この手にするタイミングなのかもしれないと、思っている自分がいる。

 

正直、今は、悲しいし、手放したくない。

 

離婚が成立してしまえば、赤の他人。彼女が何をしようが、他のどんな男と寝ようが、

当然、そんなことは、どうこうできないし、言えなくもなってしまう。

独占欲や嫉妬。それしかない、醜い感情だと思う。ただ、正直、そんなことを考えて、思ってしまう自分が

いるのも認めている事実で現実。

 

この辺は、昔と全く変わっていないな。

 

この先、どうしたいのだろう、確実に二週間前とは、違い、向上心や、こうしたい。という意識感情が芽生えている。

このままではいけないと。こうしたいと。そんな忘れてしまっていた、隠してしまっていた感情が出てきている。

 

言葉にしてしまうなら、彼女の理想の男になって、プロポーズを、またして、また、夫婦関係として、

生きていきたい。と、思っている。

 

ただ、彼女の理想は、ものすごくハードルがたかくて、今の俺では、到底無理だと思っているか、なんとかしたい。

どうしたらよいのだろうか?と、思っている自分がいる。葛藤している。

 

がむしゃらでも、なんでも。と、思ってしまっているけど、こんな感覚、気持ちは、正直忘れていた。

 

何年ぶりだろう。

 

そんな思いを心に留めながら、すこし、生きてみたいと思っている。

 

 

 
2010-09-24 03:27:32

fsadfsaf

テーマ:ブログ
2010-09-24 03:25:14

fdsfasdfsafdsfa

テーマ:ブログ


Private Sub CommandButton1_Click()

Dim saveAsFilePath As String ' 保存ファイルパス
Dim saveAsFileName As String ' 保存ファイル名
Dim wScriptHost As Object ' 保存ファイルダイアログ初期表示で使用するインスタンス
Dim isOverwrite As Integer ' 保存ファイル上書き確認フラグ True:上書きする。 False:上書きしない。
Dim isExistsFile As Boolean ' 保存ファイルパスに既にファイルが存在するか確認するためのフラグ。 True:ファイルが存在する。 False:ファイルが存在しない。

' 保存ファイルダイアログの初期パスをデスクトップに設定する。
Set wScriptHost = CreateObject("WScript.Shell")
ChDir wScriptHost.SpecialFolders("Desktop")

' 保存ファイルダイアログを開き保存ファイルパスを取得する。
saveAsFilePath = Application.GetSaveAsFilename("test.xml", "XMLファイル,*.xml")

' 保存ファイルダイアログで「キャンセル」が押下されたか確認する。
If saveAsFilePath = "False" Then

' 「キャンセル」が押下された場合、処理を終了する。
Exit Sub

End If

' 保存ファイルパスに既にファイルが存在するか確認するためのフラグを取得する。
isExistsFile = (Dir(saveAsFilePath) <> "")

' 保存ファイルパスにファイルが存在する場合、上書き確認を行う。
' 保存ファイルパスにファイルが存在しない場合、ファイル書き込み処理を行う。
While isExistsFile

' 上書き確認を行うためのダイアログにはファイルパスでなくファイル名しか表示しないので
' ファイルパスからファイル名を取得する。
saveAsFileName = Dir(saveAsFilePath)

' 上書き確認を行うためのダイアログを表示する。
isOverwrite = (vbYes = MsgBox("ファイル '" & saveAsFileName & "' は既に存在します。既存のファイルを置き換えますか?", vbYesNo))

' 上書き確認ダイアログで「はい」「いいえ」の押下で処理を切り替える。
If isOverwrite Then

' 「はい」が押下された場合、上書き処理を行うので
' ファイル存在フラグを「存在しない。」にして、再度、上書き確認を行うダイアログを表示しないようにする。
' (ファイル書き込み処理へ遷移する。)
isExistsFile = False

Else

' 「いいえ」が押下された場合、再度、保存ファイルダイアログを開き保存ファイルパスを取得する。
saveAsFilePath = Application.GetSaveAsFilename("test.xml", "XMLファイル,*.xml")

' 保存ファイルダイアログで「キャンセル」が押下されたか確認する。
If saveAsFilePath = "False" Then

' 「キャンセル」が押下された場合、処理を終了する。
Exit Sub

End If

' 保存ファイルパスに既にファイルが存在するか確認するためのフラグを取得する。
isExistsFile = (Dir(saveAsFilePath) <> "")

End If

Wend


' XMLデータの作成
Dim xmlData As String ' XMLデータ

Dim xmlIndent As String ' XMLインデント文字(半角スペース4文字)

Dim columnNumberHostNm As Integer
Dim columnNumberLgclDevId As Integer
Dim columnNumberCanExecute As Integer
Dim columnNumberRstCode As Integer
Dim columnNumberGeneralPwd As Integer
Dim columnNumberPrivilegePwd As Integer
Dim columnNumberDevId1 As Integer
Dim columnNumberDevCallNm1 As Integer
Dim columnNumberEqpCndtNm1 As Integer
Dim columnNumberAtclCont1 As Integer
Dim columnNumberUpdDt1 As Integer
Dim columnNumberDevId2 As Integer
Dim columnNumberDevCallNm2 As Integer
Dim columnNumberEqpCndtNm2 As Integer
Dim columnNumberAtclCont2 As Integer
Dim columnNumberUpdDt2 As Integer
Dim columnNumberDevId3 As Integer
Dim columnNumberDevCallNm3 As Integer
Dim columnNumberEqpCndtNm3 As Integer
Dim columnNumberAtclCont3 As Integer
Dim columnNumberUpdDt3 As Integer
Dim columnNumberDevId4 As Integer
Dim columnNumberDevCallNm4 As Integer
Dim columnNumberEqpCndtNm4 As Integer
Dim columnNumberAtclCont4 As Integer
Dim columnNumberUpdDt4 As Integer

Dim dataStartRowNumber As String
Dim dataLastRowNumber As Integer

xmlIndent = " "
columnNumberHostNm = 2
columnNumberLgclDevId = 3
columnNumberCanExecute = 4
columnNumberRstCode = 5
columnNumberGeneralPwd = 6
columnNumberPrivilegePwd = 7
columnNumberDevId1 = 8
columnNumberDevCallNm1 = 9
columnNumberEqpCndtNm1 = 10
columnNumberAtclCont1 = 11
columnNumberUpdDt1 = 12
columnNumberDevId2 = 13
columnNumberDevCallNm2 = 14
columnNumberEqpCndtNm2 = 15
columnNumberAtclCont2 = 16
columnNumberUpdDt2 = 17
columnNumberDevId3 = 18
columnNumberDevCallNm3 = 19
columnNumberEqpCndtNm3 = 20
columnNumberAtclCont3 = 21
columnNumberUpdDt3 = 22
columnNumberDevId4 = 23
columnNumberDevCallNm4 = 24
columnNumberEqpCndtNm4 = 25
columnNumberAtclCont4 = 26
columnNumberUpdDt4 = 27

dataStartRowNumber = 5
existsDataLastRowNumber = ActiveSheet.Range("$B$65536").End(xlUp).Row

xmlData = "<?xml version=""1.0"" encoding=""utf-8""?>" & vbCrLf
xmlData = xmlData & "<canIkkatsuChangeLgclDevPwd>" & vbCrLf

For rowNumber = dataStartRowNumber To existsDataLastRowNumber

xmlData = xmlData & xmlIndent & "<IkkatsuChkRstInfo>" & vbCrLf

If Cells(rowNumber, columnNumberHostNm).Interior.ColorIndex < 0 Then

xmlData = xmlData & xmlIndent & xmlIndent & "<hostNm>" & Cells(rowNumber, columnNumberHostNm) & "</hostNm>" & vbCrLf

End If

If Cells(rowNumber, columnNumberLgclDevId).Interior.ColorIndex < 0 Then

xmlData = xmlData & xmlIndent & xmlIndent & "<lgclDevId>" & Cells(rowNumber, columnNumberLgclDevId) & "</lgclDevId>" & vbCrLf

End If

If Cells(rowNumber, columnNumberCanExecute).Interior.ColorIndex < 0 Then

xmlData = xmlData & xmlIndent & xmlIndent & "<canExecute>" & Cells(rowNumber, columnNumberCanExecute) & "</canExecute>" & vbCrLf

End If

If Cells(rowNumber, columnNumberRstCode).Interior.ColorIndex < 0 Then

xmlData = xmlData & xmlIndent & xmlIndent & "<rstCode>" & Cells(rowNumber, columnNumberRstCode) & "</rstCode>" & vbCrLf

End If

If Cells(rowNumber, columnNumberGeneralPwd).Interior.ColorIndex < 0 Then

xmlData = xmlData & xmlIndent & xmlIndent & "<generalPwd>" & Cells(rowNumber, columnNumberGeneralPwd) & "</generalPwd>" & vbCrLf

End If

If Cells(rowNumber, columnNumberPrivilegePwd).Interior.ColorIndex < 0 Then

xmlData = xmlData & xmlIndent & xmlIndent & "<privilegePwd>" & Cells(rowNumber, columnNumberPrivilegePwd) & "</privilegePwd>" & vbCrLf

End If

If Cells(rowNumber, columnNumberDevId1).Interior.ColorIndex < 0 Then

xmlData = xmlData & xmlIndent & xmlIndent & "<IkkatsuChkRstDevInfo>" & vbCrLf

End If

If Cells(rowNumber, columnNumberDevId1).Interior.ColorIndex < 0 Then

xmlData = xmlData & xmlIndent & xmlIndent & xmlIndent & "<devId>" & Cells(rowNumber, columnNumberDevId1) & "</devId>" & vbCrLf

End If

If Cells(rowNumber, columnNumberDevId1).Interior.ColorIndex < 0 And Cells(rowNumber, columnNumberDevCallNm1).Interior.ColorIndex < 0 Then

xmlData = xmlData & xmlIndent & xmlIndent & xmlIndent & "<devCallNm>" & Cells(rowNumber, columnNumberDevCallNm1) & "</devCallNm>" & vbCrLf

End If

If Cells(rowNumber, columnNumberDevId1).Interior.ColorIndex < 0 And Cells(rowNumber, columnNumberEqpCndtNm1).Interior.ColorIndex < 0 Then

xmlData = xmlData & xmlIndent & xmlIndent & xmlIndent & "<eqpCndtNm>" & Cells(rowNumber, columnNumberEqpCndtNm1) & "</eqpCndtNm>" & vbCrLf

End If

If Cells(rowNumber, columnNumberDevId1).Interior.ColorIndex < 0 And Cells(rowNumber, columnNumberAtclCont1).Interior.ColorIndex < 0 Then

xmlData = xmlData & xmlIndent & xmlIndent & xmlIndent & "<atclCont>" & Cells(rowNumber, columnNumberAtclCont1) & "</atclCont>" & vbCrLf

End If

If Cells(rowNumber, columnNumberDevId1).Interior.ColorIndex < 0 And Cells(rowNumber, columnNumberUpdDt1).Interior.ColorIndex < 0 Then

xmlData = xmlData & xmlIndent & xmlIndent & xmlIndent & "<updDt>" & Cells(rowNumber, columnNumberUpdDt1) & "</updDt>" & vbCrLf

End If

If Cells(rowNumber, columnNumberDevId1).Interior.ColorIndex < 0 Then

xmlData = xmlData & xmlIndent & xmlIndent & "</IkkatsuChkRstDevInfo>" & vbCrLf

End If

If Cells(rowNumber, columnNumberDevId2).Interior.ColorIndex < 0 Then

xmlData = xmlData & xmlIndent & xmlIndent & "<IkkatsuChkRstDevInfo>" & vbCrLf

End If

If Cells(rowNumber, columnNumberDevId2).Interior.ColorIndex < 0 Then

xmlData = xmlData & xmlIndent & xmlIndent & xmlIndent & "<devId>" & Cells(rowNumber, columnNumberDevId2) & "</devId>" & vbCrLf

End If

If Cells(rowNumber, columnNumberDevId2).Interior.ColorIndex < 0 And Cells(rowNumber, columnNumberDevCallNm2).Interior.ColorIndex < 0 Then

xmlData = xmlData & xmlIndent & xmlIndent & xmlIndent & "<devCallNm>" & Cells(rowNumber, columnNumberDevCallNm2) & "</devCallNm>" & vbCrLf

End If

If Cells(rowNumber, columnNumberDevId2).Interior.ColorIndex < 0 And Cells(rowNumber, columnNumberEqpCndtNm2).Interior.ColorIndex < 0 Then

xmlData = xmlData & xmlIndent & xmlIndent & xmlIndent & "<eqpCndtNm>" & Cells(rowNumber, columnNumberEqpCndtNm2) & "</eqpCndtNm>" & vbCrLf

End If

If Cells(rowNumber, columnNumberDevId2).Interior.ColorIndex < 0 And Cells(rowNumber, columnNumberAtclCont2).Interior.ColorIndex < 0 Then

xmlData = xmlData & xmlIndent & xmlIndent & xmlIndent & "<atclCont>" & Cells(rowNumber, columnNumberAtclCont2) & "</atclCont>" & vbCrLf

End If

If Cells(rowNumber, columnNumberDevId2).Interior.ColorIndex < 0 And Cells(rowNumber, columnNumberUpdDt2).Interior.ColorIndex < 0 Then

xmlData = xmlData & xmlIndent & xmlIndent & xmlIndent & "<updDt>" & Cells(rowNumber, columnNumberUpdDt2) & "</updDt>" & vbCrLf

End If

If Cells(rowNumber, columnNumberDevId2).Interior.ColorIndex < 0 Then

xmlData = xmlData & xmlIndent & xmlIndent & "</IkkatsuChkRstDevInfo>" & vbCrLf

End If

If Cells(rowNumber, columnNumberDevId3).Interior.ColorIndex < 0 Then

xmlData = xmlData & xmlIndent & xmlIndent & "<IkkatsuChkRstDevInfo>" & vbCrLf

End If

If Cells(rowNumber, columnNumberDevId3).Interior.ColorIndex < 0 Then

xmlData = xmlData & xmlIndent & xmlIndent & xmlIndent & "<devId>" & Cells(rowNumber, columnNumberDevId3) & "</devId>" & vbCrLf

End If

If Cells(rowNumber, columnNumberDevId3).Interior.ColorIndex < 0 And Cells(rowNumber, columnNumberDevCallNm3).Interior.ColorIndex < 0 Then

xmlData = xmlData & xmlIndent & xmlIndent & xmlIndent & "<devCallNm>" & Cells(rowNumber, columnNumberDevCallNm3) & "</devCallNm>" & vbCrLf

End If

If Cells(rowNumber, columnNumberDevId3).Interior.ColorIndex < 0 And Cells(rowNumber, columnNumberEqpCndtNm3).Interior.ColorIndex < 0 Then

xmlData = xmlData & xmlIndent & xmlIndent & xmlIndent & "<eqpCndtNm>" & Cells(rowNumber, columnNumberEqpCndtNm3) & "</eqpCndtNm>" & vbCrLf

End If

If Cells(rowNumber, columnNumberDevId3).Interior.ColorIndex < 0 And Cells(rowNumber, columnNumberAtclCont3).Interior.ColorIndex < 0 Then

xmlData = xmlData & xmlIndent & xmlIndent & xmlIndent & "<atclCont>" & Cells(rowNumber, columnNumberAtclCont3) & "</atclCont>" & vbCrLf

End If

If Cells(rowNumber, columnNumberDevId3).Interior.ColorIndex < 0 And Cells(rowNumber, columnNumberUpdDt3).Interior.ColorIndex < 0 Then

xmlData = xmlData & xmlIndent & xmlIndent & xmlIndent & "<updDt>" & Cells(rowNumber, columnNumberUpdDt3) & "</updDt>" & vbCrLf

End If

If Cells(rowNumber, columnNumberDevId3).Interior.ColorIndex < 0 Then

xmlData = xmlData & xmlIndent & xmlIndent & "</IkkatsuChkRstDevInfo>" & vbCrLf

End If

If Cells(rowNumber, columnNumberDevId4).Interior.ColorIndex < 0 Then

xmlData = xmlData & xmlIndent & xmlIndent & "<IkkatsuChkRstDevInfo>" & vbCrLf

End If

If Cells(rowNumber, columnNumberDevId4).Interior.ColorIndex < 0 Then

xmlData = xmlData & xmlIndent & xmlIndent & xmlIndent & "<devId>" & Cells(rowNumber, columnNumberDevId4) & "</devId>" & vbCrLf

End If

If Cells(rowNumber, columnNumberDevId4).Interior.ColorIndex < 0 And Cells(rowNumber, columnNumberDevCallNm4).Interior.ColorIndex < 0 Then

xmlData = xmlData & xmlIndent & xmlIndent & xmlIndent & "<devCallNm>" & Cells(rowNumber, columnNumberDevCallNm4) & "</devCallNm>" & vbCrLf

End If

If Cells(rowNumber, columnNumberDevId4).Interior.ColorIndex < 0 And Cells(rowNumber, columnNumberEqpCndtNm4).Interior.ColorIndex < 0 Then

xmlData = xmlData & xmlIndent & xmlIndent & xmlIndent & "<eqpCndtNm>" & Cells(rowNumber, columnNumberEqpCndtNm4) & "</eqpCndtNm>" & vbCrLf

End If

If Cells(rowNumber, columnNumberDevId4).Interior.ColorIndex < 0 And Cells(rowNumber, columnNumberAtclCont4).Interior.ColorIndex < 0 Then

xmlData = xmlData & xmlIndent & xmlIndent & xmlIndent & "<atclCont>" & Cells(rowNumber, columnNumberAtclCont4) & "</atclCont>" & vbCrLf

End If

If Cells(rowNumber, columnNumberDevId4).Interior.ColorIndex < 0 And Cells(rowNumber, columnNumberUpdDt4).Interior.ColorIndex < 0 Then

xmlData = xmlData & xmlIndent & xmlIndent & xmlIndent & "<updDt>" & Cells(rowNumber, columnNumberUpdDt4) & "</updDt>" & vbCrLf

End If

If Cells(rowNumber, columnNumberDevId4).Interior.ColorIndex < 0 Then

xmlData = xmlData & xmlIndent & xmlIndent & "</IkkatsuChkRstDevInfo>" & vbCrLf

End If

xmlData = xmlData & xmlIndent & "</IkkatsuChkRstInfo>" & vbCrLf

Next rowNumber

xmlData = xmlData & "</canIkkatsuChangeLgclDevPwd>" & vbCrLf

' ファイル書き込み処理
' ADODB.Streamのモード
Dim adTypeBinary: adTypeBinary = 1
Dim adTypeText: adTypeText = 2
Dim adSaveCreateOverWrite: adSaveCreateOverWrite = 2

' ADODB.Streamを作成
Dim pre: Set pre = CreateObject("ADODB.Stream")

' 最初はテキストモードでUTF-8で書き込む
pre.Type = adTypeText
pre.Charset = "UTF-8"
pre.Open
pre.WriteText (xmlData)

' バイナリモードにするためにPositionを一度0に戻す
' Readするためにはバイナリタイプでないといけない
pre.Position = 0
pre.Type = adTypeBinary

' Positionを3にしてから読み込むことで最初の3バイトをスキップする
' つまりBOMをスキップします
pre.Position = 3
Dim bin: bin = pre.Read
pre.Close

' 読み込んだバイナリデータをバイナリデータとしてファイルに出力する
' ここは一般的な書き方なので説明を省略
Dim stm: Set stm = CreateObject("ADODB.Stream")
stm.Type = adTypeBinary
stm.Open
stm.Write (bin)
stm.SaveToFile saveAsFilePath, adSaveCreateOverWrite ' force overwrite
stm.Close



MsgBox "XMLの作成を完了しました。"

End Sub

1 | 2 | 3 | 4 | 5 | 最初次のページへ >>