Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

30740 / 76807

←次へ　｜　前へ→


	【51331】ユーザーフォームのコントロールソースの一覧

BLUELION - 07/9/12(水) 13:50 -


	引用なし

	パスワード

業者に発注してEXCEL2000で作成してもらった
システムがあるのですが　最近のEXCELはOSでは動作しないＰＣが
出てきたためにACCESSへ移行しようとしていますが
担当が退職し受けてもらえず自分たちで移行することになりました

そこで　ユーザーフォームに存在する　コントロールの
Controlsourceをテキストファイルに出力しデータの結びつきを整理
したいのですがコントロールやフォームの指定をどうすればいいかわからず
うまくいきませんでした

結局　エクセルのユーザーフォームをエクスポートして
VB2005で開いて
以下のようにしてうまくいきましたが
今後のためにも　エクセルVBAで同じことをする方法をおしえてください

===============VB2005===============
Private Sub UserForm_Initialize()
　　
　　Dim lLen　　　　As Long
　　
　　lLen = FreeFile
　　
　　Open "D:\AAAAA.TXT" For Output As #lLen
　　
　　For Each Control In frmユーザーフォーム名.Controls
　　　
　　　 If UCase(CStr(TypeName(Control))) = "TEXTBOX"
　　　　Or UCase(CStr(TypeName(Control))) = "COMBOBOX" Then
　　　　　　If Control.controlsource <> "" Then
　　　　　　　　Print #lLen, Control.Name & "," & Control.controlsource
　　　　　　End If
　　　 End If

　　Next

　　Close #lLen
　　
　　End
　　
End Sub

2 hits

▼

【51331】ユーザーフォームのコントロールソースの一覧 BLUELION 07/9/12(水) 13:50

≪