Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

65836 / 76738

←次へ　｜　前へ→


	【15473】Excel以外の保存について

Jr - 04/6/26(土) 12:41 -


	引用なし

	パスワード

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

保存するソースが解ったとしても、このプログラムが正常に動くかどうか解りません。

1 hits

▼

【15473】Excel以外の保存について Jr 04/6/26(土) 12:41

≪