|
Jrと申します。
今、作っているプログラムは画像ファイルをtifファイルに変換するプログラムです。
保存するソースが解らなくて困っています Excelファイルの保存をする時はActiveWorkbook.SaveAsなどありますが Excelファイル以外を保存するにはどのようにしたらよいのでしょう?
Sub Sample()
Dim myFileName As Variant
Dim oldFilename, newFilename As String
Dim i As Long
’変換するファイルを選択
myFileName = Application.GetOpenFilename _
(Title:="変換するファイルを選択してください", _
MultiSelect:=True)
If Not IsArray(myFileName) Then Exit Sub
For i = 1 To UBound(myFileName)
’tifファイルに変換
oldFilename = Mid((myFileName(i)), 1, Len(myFileName(i)) - 3)
newFilename = oldFilename & "tif"
’ここに保存するソースを書きたいのですが・・・
Next i
End Sub
保存するソースが解ったとしても、このプログラムが正常に動くかどうか解りません。
|
|