Results of 1 - 1 of about 71 for ExecuteExcel4Macro 閉じた｜開いて｜開かず (0.012 sec.)
executeexcel4macro (140), 閉じた (629), 開いて (4904), 開かず (263)
- [[20170829182800]]
- #score: 14119
- @digest: 123e541b1818f3ccac8e04d97a087359
- @id: 74292
- @mdate: 2017-08-29T10:37:43Z
- @size: 2566
- @type: text/plain
- #keywords: myaddress (15582), 計更 (15241), 誤確 (7748), r32c (7620), ーer (7055), 業ap (6766), グ非 (6676), err2 (5572), 照場 (4449), 日計 (4081), 度何 (3889), executeexcel4macro (3583), 正誤 (3244), 新作 (2975), back (2792), 新() (2663), く更 (2659), 成途 (2425), 再発 (2268), 認if (2206), アロ (2098), ダイ (1993), 計. (1888), 更新 (1536), displayalerts (1303), 度目 (1207), strconv (1184), イア (1130), 様子 (1048), 新で (918), ル値 (916), ログ (857)
- 『ExecuteExcel4Macroを使用し、ダイアログを非表示にすると#REF!が出る』（初心者）
他ブックのデータを、ブックを開かずにセル値を取得するときに ExecuteExcel4Macroを使用しようとしていますが 取得するときに何度も値の更新というダイアログが表示されます 参照場所やファイル名、シートは間違いありません 面倒になったのでApplication.DisplayAlerts = Falseを挿入したのですが 今度は取得したセル値が#REF!になってしまいました 因みに一度はダイアログが表示された際にExcelファイルを選択していると、次からはダイアログ非表示でも正しく更新されます どうしたら一度目でダイアログを表示せずに正しく更新できるのでしょうか? Sub 日計更新() '変数の使用宣言 Dim m As Long, d As Long, x As Long, i As Long Dim Name As String Dim Myaddress As String '日付の取得と判別しやすく y = Right(Year(Date), 2) m = Month(Date) d = Day(Date) x = Cells(Rows.Count, "G").End(xlUp).Row Name = StrConv(y, vbWide) & " " & StrConv(m, vbWide) & "月" '記述の簡略化 Myaddress = "'¥¥<<アドレス名なので伏せます>>¥[集計.xlsm]" '正誤確認 If d + 2 <= x Then GoTo Err If d + 1 = x Then GoTo Err2 back: '更新作業 Application.DisplayAlerts = False Application.ScreenUpdating = False For i = x - 1 To d - 1 k = 2 * i + 5 Cells(i + 2, 7) = ExecuteExcel4Macro(Myaddress & Name & "'!R32C" & k) Next i Application.DisplayAlerts = True Application.ScreenUpdating = True Exit Sub 'エラー Err: MsgBox "エラーです" & vbCrLf & "日計の下が空欄か、確認をしてください" Exit Sub Err2: If MsgBox("既に入力されています" & vbCrLf & "それでも実行しますか?", vbYesNo, "日計更新") = vbYes Then GoTo back End Sub ＜ 使用 Excel:Excel2010、使用 OS:WindowsVista ＞ ---- >値の更新というダイアログが表示されます Myaddress & Name に問題がありそう... （seiya） 2017/08/29(火) 19:09 ---- こんばんわ。 まだ外なので確認出来ないので、 的外れでしたらすいません。 Name の右の文字列に '!R32C と ' があるけど Name の左には無いのでは? （sy） 2017/08/29(火) 19:19 ---- ＞seiya 確認した気になっているのかもと思い再起動し とりあえず一度何も変えず試行するとそのまま更新できました まだ作成途中だったので違うセル値も参照してみましたが 普通にできました 何が原因で出来なかったのか特定できず終わってしまいました…… また再発するかもしれないので様子見しますが腑に落ちません ＞sy Myaddressの方に入っています ぶっちゃけ他の人のを流用しただけなので'の意味自体はあまり分かりませんが…… （初心者） 2017/08/29(火) 19:37... - https://www.excel.studio-kazu.jp/wiki/kazuwiki/201708/20170829182800.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97056 documents and 608292 words.
訪問者：