|
おはようございます
訂正です。
>setcell.xlsのコード
>標準モジュールに
>'=====================================================================
>Sub main()
> Dim g0 As Long
> Dim ex As Application
> Dim dbk As Excel.Workbook
> Set ex = CreateObject("excel.application")
Set dbk = ex.Workbooks.Open(ThisWorkbook.Path & "\disptime.xls")
' ↑dsptime
' 変更してください
> ex.Run dbk.Name & "!thisworkbook.set_proc"
> ThisWorkbook.Activate
> Worksheets(1).Activate
> Range("a:a").ClearContents
> For g0 = 1 To 20000
> With Cells(g0, 1)
> .Select
> .Value = g0
> End With
> Next
> Worksheets(1).Range("b1").NumberFormatLocal = "hh:mm:ss"
> ex.Run dbk.Name & "!thisworkbook.hideform"
> ex.Run dbk.Name & "!thisworkbook.set_tm", Worksheets(1).Range("b1")
> ex.Run dbk.Name & "!thisworkbook.unloadform"
> dbk.Close False
> ex.Quit
>End Sub
>
>
>上記のブックを同じフォルダ上に保存した後、
>setcell.xlsだけを開いて、mainを実行して動作とコードを確認してください。
>
>Application.Run でそのまま目的のコードを実行させると
>同期が取れてしまいます。
>
>非同期に作動するように工夫することがポイントですよ!!
|
|