コモンダイアログの表示

質問

VB.NETでエクセルをコントロールするS/Wを作っています保存時にコモンダイアログを表示させたいのですが、ツールBOXに見あたりません。どうすれば出てきますか。

回答No.2

1050 円（@1050YEN） · ベストアンサー

さっきの動作確認してませんでした。(業務のコードをそのままコピペ!?)
そこでちょっと直しました。

ある程度、どんなプロパティがあるかはヘルプで調べましょうね^^;

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
　　'保存
　　Dim l_strFileName As String
　　Dim SaveFileDialog1 As New System.Windows.Forms.SaveFileDialog()
　　With SaveFileDialog1
　　　　.Filter = "CSVファイル(*.csv)|*.csv|全て(*.*)|*.*"
　　　　.FilterIndex = 1
　　　　.Title = "保存する"
　　　　.RestoreDirectory = True
　　　　.FileName = .InitialDirectory

　　　　'.CheckFileExists = True '上書き限定
　　　　'.CreatePrompt = True　　'存在しないとき、問い合わせ

　　　　If .ShowDialog = DialogResult.OK Then
　　　　　　If .FileName <> "" Then
　　　　　　　　l_strFileName = SaveFileDialog1.FileName.ToString
　　　　　　　　MsgBox(l_strFileName)
　　　　　　End If
　　　　End If
　　End With
　　SaveFileDialog1 = Nothing
End Sub

回答No.1

1050 円（@1050YEN）

.NETではコントロールではなく、クラス化されています。
Inherits System.Windows.Forms.FileDialog
で、こんな感じです。

'保存
Dim l_strFileName As String
Dim SaveFileDialog1 As New SaveFileDialog()
With SaveFileDialog1
　　'.InitialDirectory = Application.ExecutablePath.Substring(0, Application.ExecutablePath.ToString.LastIndexOf("\"))
　　.Filter = "CSVファイル(*.csv)|*.csv|全て(*.*)|*.*"
　　.FilterIndex = 1
　　.Title = "保存する"
　　.RestoreDirectory = True
　　'.FileName = .InitialDirectory + "\" + Me.datagred1.CaptionText.ToString
　　.FileName = Me.datagred1.CaptionText.ToString
　　If .ShowDialog = DialogResult.OK Then
　　　　If .FileName <> "" Then
　　　　　　l_strFileName = SaveFileDialog1.FileName.ToString
　　　　End If
　　　　SaveFileDialog1 = Nothing
　　Else
　　　　SaveFileDialog1 = Nothing
　　　　Return
　　End If
End With

補足

回答ありがとうございます
FileName = Me.datagred1のところで引っ掛かりましたが
何とかできました。
プリントOUT時も同様に行いましたがうまくいきません。
どうすればいいのでしょうか。