| ■1503 / 8階層) |
Excelのシート名の取得方法
|
□投稿者/ ONnoji -(2024/09/05(Thu) 11:29:53)
| > 勉強します。
サンプルを再掲載します。
新しく一括処理を作って、以下の内容をコピー＆ペーストしてください。
こうして作った一括処理を実行すると、より具体的に分かると思いますよ
このサンプルはコピペだけで動くように作ってありますよ。
** begin of program
変数宣言 固有，文字列｛ ＆Excel = "hogehoge.xlsx" ｝
変数宣言 固有，文字列｛ ＆シート名 = "1234" ｝
変数宣言 固有，文字列｛ &gMsg ｝
変数宣言 固有，整数 ｛ &gErrorRefErrno ｝
変数宣言 固有，長整数｛ &gErrorRefLineno ｝
変数宣言 固有，文字列｛ &gErrorRefCmdname ｝
変数宣言 固有，文字列｛ &gErrorRefErrmsg ｝
変数宣言 固有，文字列｛ &gErrorRefDetail ｝
** 変数の値を未定義値に初期化する
&gErrorRefErrno = #u
&gErrorRefLineno = #u
&gErrorRefCmdname = #u
&gErrorRefErrmsg = #u
&gErrorRefDetail = #u
エラー処理 手続き名 = "prcOnErrorExcellCommand"
＊エクセル ＆Excel,＆シート名,項目名行=する,表名="表名.tbl",上書き="する",終了状態=&実行リターン
エクセル ＆Excel,＆シート名,項目名行=する,表名="表名.tbx",上書き="する"
エラー処理 /* 解除を忘れずに */
if ( &gErrorRefErrmsg = #u ) /* エラーメッセージが代入されていなければ */
** 通常処理
else
** エラーの場合に else を実行
** エラー番号・エラーメッセージ・エラーの詳細・一括処理・行番号をメッセージボックスで表示する
&gMsg = "［エクセル］コマンドの実行に失敗しました。"
&gMsg = &gMsg + "\n\nエラー番号：" + #cond( &gErrorRefErrno > 0, "KU", 1, "KD" ) + #str( &gErrorRefErrno )
&gMsg = &gMsg + "\n\nエラーメッセージ：" + &gErrorRefErrmsg
&gMsg = &gMsg + "\n\nエラーの詳細：" + &gErrorRefDetail
&gMsg = &gMsg + "\n\n一括処理名：" + &gErrorRefCmdname
&gMsg = &gMsg + "\n\n行番号：" + #str( &gErrorRefLineno )
メッセージボックス "タイトル", &gMsg, アイコン = E, ボタン指定 = 1, 制御文字展開 = する
end
終了
** end of program
手続き定義開始 prcOnErrorExcellCommand( )
変数宣言 自動，文字列｛ &icon, &title = "prcOnErrorExcellCommand( )", &gsg ｝
エラー処理 /* ここでも解除を忘れずに */
** エラー番号・エラーメッセージ・エラーの詳細・一括処理・行番号を固有変数に代入する
&gErrorRefErrno = &errno
&gErrorRefLineno = &lineno
&gErrorRefCmdname = &cmdname
&gErrorRefErrmsg = &errmsg
&gErrorRefDetail = &detail
手続き定義終了
|
|
Excelのシート名の取得方法
/ 田代正美 (24/08/29(Thu) 10:47) #1495 
上記ツリーを一括表示 / 上記ツリーをトピック表示