![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
VB6ですと
ShellExecute(Me.Handle, "open", "History.csv", "", "", 3)
とするとエクセルが開いて「History.csv」が観覧できるのですが、VB.netだと、エラーがでないもののエクセル画面がでてきません。なぜでしょうか?
また、ShellExecuteに変わるような関数がありますでしょうか?
以下はソースです、パスは間違っていないし、返り値は562954248388610となっています。
i = ShellExecute(Me.Handle.ToInt64, "open", sFolderPullPath & "SerialHistory.csv", "", "", 3)
No.4ベストアンサー
- 回答日時:
こんにちは、じゃんぬねっと です。
ついでなんで以下についてもお答えします。
# まあ、余談に近いのですが...
> 以下はソースです、パスは間違っていないし、返り値は562954248388610となっています。
> i = ShellExecute(Me.Handle.ToInt64, "open", sFolderPullPath & "SerialHistory.csv", "", "", 3)
これは、Declare の宣言が間違ってるんじゃないでしょうか?
VB6 での Long は、VB.NET では Integer (Int32) です。
戻り値が Long (Int64) になっているのならば、未定義の上位ビットが返ってきちゃいます。
# 第 1 引数を見る限り、そう確信しています。
それと、第 1 引数は IntPtr でやるべきですね。
この回答への補足
ありがとうございます。Declare の宣言をLongからInt32に直すとできました。
ちなみに「ByVal lpKeyName As Any」などのAny型は何に直せばいいのでしょうか?GetPrivateProFileStringに使われているものです。
No.6
- 回答日時:
GetPrivateProfileStringについても、変わらないと思うのですが^^;
値/参照のIN/OUT考えたら、全部STRINGに置き換える事ができますよー
ついでだから、書きもあわせてサンプルをどうぞ^^
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" _
(ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Integer
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" _
(ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
Const DEF_SEC As String = "SECTION"
Const DEF_KEY As String = "KEY"
Const DEF_INI As String = "C:\test.ini"
Const DEF_BUFF_LEN As Integer = &HFF&
Dim intRet As Integer
Dim strValue As String = "値"
'書く
MsgBox("書き込む値: " & strValue)
Call WritePrivateProfileString(DEF_SEC, DEF_KEY, strValue, DEF_INI)
'初期化
strValue = New String(CChar(" "), DEF_BUFF_LEN)
MsgBox("初期化された値: " & strValue)
'読む
If GetPrivateProfileString(DEF_SEC, DEF_KEY, vbNullString, strValue, DEF_BUFF_LEN, DEF_INI) Then
MsgBox("取得した値: " & Strings.Left(strValue, (InStr(strValue, vbNullChar) - 1)))
Else
MsgBox("失敗")
End If
No.5
- 回答日時:
Anyは、場合によってStringかIntegerです。
もし、関連づいたアプリケーションでファイルを開くのであれば、Stringが使いやすいかと・・・・
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Integer, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Integer) As Integer
Dim intRet As Integer
intRet = ShellExecute(0, "open", Environ("windir") & "\珈琲カップ.bmp", vbNullString, Environ("windir"), 1)
この回答への補足
なるほどですね、ありがとうございます。GetPrivateProFileStringのdeclareはどのような記述になるのでしょう?
補足日時:2005/03/31 17:59お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのVBAについて とあるサイトのコードを参考に、CSVの文字化けを直すVBAを作成しているの 7 2022/11/04 14:15
- Excel(エクセル) CSVファイルでVBAを動かす方法 3 2023/04/04 10:22
- Visual Basic(VBA) VBAで出力したCSVファイルの先頭にカンマを挿入したい 5 2022/10/14 12:20
- Visual Basic(VBA) VBA初心者です。電話番号の数字の前に0を表示させたいです。 2 2022/12/14 03:58
- Excel(エクセル) 【マクロ】webアドレスにて指定されたCSVファイル【excelソフト表示】を印刷する件 1 2023/02/15 01:52
- Excel(エクセル) エクセルでCSVを編集するとき、空白(NULL?)はどう入れますか 6 2023/06/08 15:30
- その他(プログラミング・Web制作) Sikulix2.0.5(Jython2.7.3)でcsvを読込WEB検索条件にpasteで文字化け 1 2023/03/31 11:02
- HTML・CSS HTMLタグのあるCSVファイルを利用する方法 4 2023/03/19 14:41
- その他(プログラミング・Web制作) データ解析ソフトRでのファイル入力read.csvがエラーになります 7 2022/03/27 22:11
- Excel(エクセル) エクセルでcsvファイルを開いてVBAを使いたい 7 2022/04/28 11:12
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
IF文、条件分岐の整理方法
-
VBAコードのインデント表示
-
時間短縮のために、テキストフ...
-
Excel VBA 選択範囲の罫線色の...
-
マクロの記録を使用したマクロ...
-
VB.net(VB)で、フォームにExcel...
-
IEを使わないでhtmlテキストを...
-
Excelセルに入力された文字の色...
-
VBAなくなるの?
-
【ExcelVBA】値を変更しながら...
-
VBA 別ブックから条件に合うも...
-
VBAの質問です、複数のテキスト...
-
エクセルのマクロについて教え...
-
ワードVBA どの表か知ることは...
-
エクセルのマクロについて教え...
-
エクセルのVBAコードについて教...
-
エクセルのマクロについて教え...
-
エクセルのVBAコードについて教...
-
エクセルのマクロについて教え...
-
ExcelVBA修正のお願い
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【ExcelVBA】300万件越えCSVか...
-
Excelマクロ 空白セルを無視し...
-
ダブルコーテーション付きでCSV...
-
VBAでcsvファイルもシートもあ...
-
ファイル名を変数で書きこむfwr...
-
VB.netでShellExecuteがしたい
-
EXCEL→CSV保存時のダブルクォー...
-
複数のファイルをまたぐエクセ...
-
pythonでリストをCSVに出力する...
-
【C#】 csvファイルをバイナリ...
-
VBAで複数のCSVからレコードセ...
-
rubyを用いたCSVファイルの分割...
-
CSVデータの文字列置換
-
エクセルVBA Application.GetSa...
-
パイソン文法で ファイルオープ...
-
Rubyを使用してcsvファイルを処...
-
vbaマクロについて 次のような...
-
CSVファイルの比較と結果の取得...
-
fortranでデータの抜き出しをし...
-
コマンドプロンプトでファイル...
おすすめ情報