Excel VBA質問箱 IV

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

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


30671 / 76738 ←次へ | 前へ→

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

引用なし
パスワード
   業者に発注してEXCEL2000で作成してもらった
システムがあるのですが 最近のEXCELはOSでは動作しないPCが
出てきたために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

0 hits

【51331】ユーザーフォームのコントロールソースの一覧 BLUELION 07/9/12(水) 13:50 質問
【51334】Re:ユーザーフォームのコントロールソース... Jaka 07/9/12(水) 14:25 発言
【51336】Re:ユーザーフォームのコントロールソース... BLUELION 07/9/12(水) 15:49 お礼
【51339】Re:ユーザーフォームのコントロールソース... Jaka 07/9/12(水) 16:41 発言
【51340】Re:ユーザーフォームのコントロールソース... BLUELION 07/9/12(水) 16:43 お礼
【51358】Re:ユーザーフォームのコントロールソース... Jaka 07/9/13(木) 9:17 発言
【51360】Re:ユーザーフォームのコントロールソース... BLUELION 07/9/13(木) 9:29 お礼

30671 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free