＞１．フォーム上に２つのテキストボックスを配置し・・・
Text1の全角文字をコマンド1ボタンでText2に半角で返します。
Private Sub コマンド1_Click()
Text2 = StrConv(Text1, vbNarrow)
End Sub
＞２．データが格納されているフォルダのフルパスを入力・・・
まずAccess のVBE画面で、ツール→参照設定→Microsoft Excel 9.0 Object Library にチェックをしてＯＫ。
以下を貼り付けて下さい。
ダイアログボックスで指定したフォルダ、またはファイルのフォルダ名をText3に返します。
ExcelのGetSaveAsFilenameメソッドを使っています。他にGetOpenFilenameメソッドもあったかと思います。
いろんなことをするのはExcelの方が自由度が高いかも知れません。フォルダ名を取り出すのは他に方法があった気もします。これは最後の"\"を探しています。
Private Sub コマンド2_Click()
Dim myFile '指定したファイル名
Dim myExcel 'エクセル
Set myExcel = Excel.Application
myFile = myExcel.GetSaveAsFilename() ’ファイルフィルタが使える
Dim L As Integer ’カウンタ
If myFile <> False Then
For L = Len(myFile) To 1 Step -1
If Mid(myFile, L, 1) = "\" Then ’何か他の方法があったと思うが
Text3 = Left(myFile, L - 1)
Exit For
End If
Next
End If
End Sub
