以前GPSロガー(GT-730FL-S)の高度をオフセット補正するマクロをEXCEL 2003で作成しましたが、パソコンが壊れて、EXCELの入っていないパソコンに買い換えたので、マクロが動かなくなってしまいました。表計算自体はOpenOfficeで代用できますが、マクロ(VBA)はだめです。
そこで、Visual Basic Expressに移植しました。まだ十分にデバックしていないので、使う場合は自己責任でお願いします。実行するためには、Microsoft .NET Framework 4 Client Profile (x86 および x64)が必要です。
「nmea_alt_0_3_0_0.zip」をダウンロード
最初はEXCELのCSVの取り込み機能を使っていたのですが、将来EXCELが無くても動くようにするため、先のマクロRev.0.3ではワークシートを使わないようにしていました。従って、簡単に移植できると思っていたのですが、VBAとVBがそれなりに違っていることに気づかされました。
そこで、EXCEL 2003 VBAからVisual Basic 2010 Expressに移植した手順をメモしておきます。
１．EXCEL側の準備
1) ワークシートやEXCEL固有の機能を使わないようにコードを変更する。
2) 各フォームやモジュールをエクスポートする(.frm,.bas)。
3) 各フォームを印刷する。
２．Visual Basicの準備
1) 新規プロジェクトを作成する。
2) [プロジェクト][新しい項目の追加]でWindowsフォームを作成し、印刷したフォームと同じ様にフォームを一から作り直す。
3) エクスポートしたフォーム(.frm)をテキストエディタで開き、それを参考にしながら、作成したフォームのプロパティ(主に(Name))を元のプロパティに変更する。
4) フォームのコード部分に、エクスポートしたフォーム(,frm)のコード部分をコピーする。
5) [プロジェクト][新しい項目の追加]でモジュールを追加し、エクスポートしたモジュール(.bas)のコードを作成したモジュール(.vb)にコピーする。
３.コードの変更
ソースコードにエラーを示すマークが表示されるので、エラーがなくなるようにコードを修正する。変更量を少なくするため、推奨されない古いコードも使ってます。
◆Option Explicit Onを、「Module～End Module」や「Public Class～End Class」の外に移動する。
◆Unload(Form1) ---> Me.close()
◆CSng(TextBox1.Value) ---> CSng(TextBox1.Text)
◆TextBox1 ---> TextBox1.Text
◆CheckBox1.Value ---> CheckBox1.Checked
◆FileName = Application.GetOpenFilename( _
Title:="Read a NMEA file", _
FileFilter:="NMEA file(*.nmea;*.txt;*.csv),*.nmea;*.txt;*.csv", _
MultiSelect:="False")
--->
Dim ofd As New OpenFileDialog()
ofd.Filter = "NMEA file(*.nmea;*.txt;*.csv)|*.nmea;*.htxt:*.csv| _
All file(*.*)|*.*"
ofd.FilterIndex = 1
ofd.Title = "Read a NMEA file"
ofd.Multiselect = False
If ofd.ShowDialog() = DialogResult.OK Then
FileName = ofd.FileName
Else
FileName = ""
End If
SaveFileDialog1.Dispose()
◆FileName = Application.GetSaveAsFilename( _
InitialFileName:=txtFileOut, _
Title:="Write a NMEA file", _
FileFilter:="NMEA file(*.nmea),*.nmea,Text file(*.txt),*.txt, _
CSV file(*.csv),*.csv")
--->
Dim SaveFileDialog1 As New SaveFileDialog()
SaveFileDialog1.Title = "Write a NMEA file"
SaveFileDialog1.FileName = FileName
SaveFileDialog1.Filter = "NMEA file(*.nmea;*.txt;*.csv)| _
*.nmea;*.htxt:*.csv|All file(*.*)|*.*"
SaveFileDialog1.FilterIndex = 1
SaveFileDialog1.CreatePrompt = True
If SaveFileDialog1.ShowDialog() = DialogResult.OK Then
FileName = SaveFileDialog1.FileName
Else
FileName = ""
End If
◆Form1.Show ---> Form1.ShowDialog()
Form1.Dispose()
◆MsgBox "test" & Format(sng, "0.0")
--->
MsgBox("test" & Format(sng, "0.0"))
◆i = FreeFile
Open FileName For Input As #i
--->
i = FreeFile()
FileOpen(i, FileName, OpenMode.Input)
◆i = FreeFile
Open FileName For Output As #i
--->
FileName = FreeFile()
FileOpen(i, FileNamet, OpenMode.Output)
◆Print #i, s ---> PrintLine(i, s)
◆Close i ---> FileClose(i)
◆Left(s,i)が「'Public Property Left As Integer'には引数がないため、戻り値の型をインデックス化できません」となる。 --> Microsoft.VisualBasic.Left(s,i)と書く。
◆Public s As Stringが、「名前空間のステートメントが無効です」となる。---> Public s As StringをSub Main()内に移動。
◆Sub Main()が実行されない。 ---> ソリューションエクスプローラの当該プロジェクトを右クリックし、プロパティ、アプリケーションフレームワークを有効にするのチェックを外す。スタートアップオブジェクトをSub Main()のあるモジュールに設定する。
◆Form1.Show()で表示されたフォームが閉じないうちに、次のステップが実行されてしまう。---> Form1.ShowDialog()、Form1.Dispose()に変更する。
◆Form1.vb内のイベントプロシージャー「Private Sub cmdAltOK_Click()」がイベントにリンクしない。---> 「Private Sub cmdAltOK_Click() Handles cmdAltOK.Click」のように「Handles～」を追加する。
最近のコメント