■44509 / ) |
Re[3]: excel座標にてレデュ-サ-の展開です。
|
□投稿者/ O.M (3回)-(2014/09/20(Sat) 22:02:32)
| 2014/09/20(Sat) 22:03:21 編集(投稿者)
コード見てみたのですが、
'フォルダリスト選択 Private Sub MakeNewFileChoice_Click() Dim ObjectName As Object Dim FileDialogFlg As Boolean Dim i As Byte Set ObjectName = MakeNewFile11 udtUfData.UfName = Me.Name If ObjectName.ListIndex = -1 Then Me.Hide MsgBox "リストが未選択です。" & vbLf & "▼マークを押してフォルダを登録するリストを選択してください。" Me.Show vbModeless Exit Sub End If If MakeNewFile1.Value = True Then FileDialogFlg = True JeFolderChoice FileDialogFlg, ObjectName End Sub
'フォルダリスト削除 Private Sub MakeNewFileDel_Click() Dim ObjectName As Object Set ObjectName = MakeNewFile11 udtUfData.UfName = Me.Name If ObjectName.ListIndex = -1 Then Exit Sub JeDeleteList ObjectName End Sub
'選択フォルダリストを開く Private Sub MakeNewFileOpen_Click() Dim ObjectName As Object Set ObjectName = MakeNewFile11 udtUfData.UfName = Me.Name If ObjectName.ListIndex = -1 Then Exit Sub JeOpenFolder ObjectName End Sub
の部分を
'フォルダリスト選択 Private Sub MakeNewFileChoice_Click() Dim ObjectName As Object Dim FileDialogFlg As Boolean Dim i As Byte Set ObjectName = MakeNewFile11 udtUfData.UfName = Me.Name If ObjectName.ListIndex = -1 Then Me.Hide MsgBox "リストが未選択です。" & vbLf & "▼マークを押してフォルダを登録するリストを選択してください。" Me.Show vbModeless Exit Sub End If If MakeNewFile1.Value = True Then FileDialogFlg = True JeFolderChoice FileDialogFlg, ObjectName End Sub
'フォルダリスト削除 Private Sub MakeNewFileDel_Click() Dim ObjectName As Object Set ObjectName = MakeNewFile11 udtUfData.UfName = Me.Name If ObjectName.ListIndex = -1 Then Exit Sub JeDeleteList ObjectName End Sub
'選択フォルダリストを開く Private Sub MakeNewFileOpen_Click() Dim ObjectName As Object Set ObjectName = MakeNewFile11 udtUfData.UfName = Me.Name If ObjectName.ListIndex = -1 Then Exit Sub JeOpenFolder ObjectName End Sub
に直したら、エラーは出なくなりました。 直したデータをあげておきます。
http://nekobasu83.webdeki-bbs.com/nekobasu83_tree_p_22.html
それから、御存じかもしれませんが、 設定時に座標ファイル保存フォルダをjwwの座標ファイルのフォルダ(通常はC:\jww)、 座標ファイル保存名をZTEMPにしておけば、 jww起動→その他→座標ファイル→ファイル読み込みで作成したデータがそのまま読み込めるようになります。 注意:利用のたびにファイルが上書きされるのでログとして座標ファイルを残したい場合には利用できません。
以前も書いた気がするので重複でしたら申し訳ありません。 外部変形で同様の操作のものを作成しているのですが、そちらでしたらjwwからExcelを起動して実行すれば書き込めるので、座標ファイル形式より操作が楽になるではないかと思いますので、もしよかったらご利用ください。 ※エラー箇所があれば教えて頂けると嬉しいです、自分で対応できる範囲の場合に限りですが、なおします。
http://nekobasu83.webdeki-bbs.com/nekobasu83_tree_r_21.html
*** 最初に1階だけは必ず行う作業(2回目以降は不要) ***
1.データをダウンロードして解凍
※ブラウザがChromeの場合、batファイルを圧縮したzipファイルに対し、「一般的にダウンロードされておらず、危険を及ぼす可能性があります。」という警告をだすようになっているようです。 ▼ボタンを押して継続を選択すればダウンロードできます。
2.パスにスペースを含まない場所へ保存
《保存したらダメな場所の例》 C:\Program Files ※mとFの間にスペースがあるので保存したらダメな場所です。
3.Excelを開いて座標ファイルのときと同様のような作業で、座標ファイルの作成式などの設定をExcelに行い保存。
*** 作図時に行う作業 ***
1.jww起動
2.その他→外部変形→2で保存した場所を開いてbatファイルを選択
3.Excelが起動するので行いたい処理を選択し実行
※簡易すぎて全く実用できないものではありますが、使用例のデータをいれていますので、そちらで先にためしてみると使い心地がわかるのではないかと思います。
|
|