Excel VBA質問箱 IV

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

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


13468 / 13644 ツリー ←次へ | 前へ→

【5261】テキストボックスからのファイルの保存など ゆうこ 03/4/30(水) 16:54 質問
【5270】Re:テキストボックスからのファイルの保存な... Jaka 03/5/1(木) 11:00 回答
【5278】ありがとうございます ゆうこ 03/5/1(木) 18:26 発言

【5261】テキストボックスからのファイルの保存など
質問  ゆうこ  - 03/4/30(水) 16:54 -

引用なし
パスワード
   エクセルの複数のブックを、一つのブックで管理しようと思っています。
エクセルのシートにテキストボックスを貼り付けて
そのテキストボックスに入力したファイルを開いたり、
テキストボックスに入力した文字をファイル名に変更したり
したいのですが、うまくいきません。
どうか教えてください。
※ テキストボックスは複数になってもかまいません。

【5270】Re:テキストボックスからのファイルの保存...
回答  Jaka  - 03/5/1(木) 11:00 -

引用なし
パスワード
   こんにちは。
なかなかレスがつかないようなので、こんな感じもあり?って事で...。

シート上に

OptionButton1  TextBox1
OptionButton2  TextBox2  CommandButton1

↑こんな感じにOptionButtonとTextBoxが2個づつあり、CommandButtonが1個あるとして、
OptionButton1が、チェックされているとTextBox1ファイル開きます。
OptionButton2が、チェックされているとTextBox1のファイルをTextBox2の名前に変更、移動します。

簡単なチェック等はしていますが、すべてCドライブ上での事としています。
ネットワーク上での使用するなら、もっとエラーチェックを増やしてください。
TextBoxへのファイル名入力は、フルパスが前提。
ファイル管理ってしたこと無いんで解りませんが、コード書いてみて、まじめにやろうとするとメチャクチャ複雑になりそうで、使いづらそうだなと思いました。
それと、保存の事は使う状況のことなどもあって全く考えていません。


Private Sub CommandButton1_Click()
  '97以降
  i = 0
  Do Until InStr(i + 1, TextBox2.Value, "\") = 0
    i = InStr(i + 1, TextBox2.Value, "\")
  Loop
  std = Left(TextBox2.Value, i - 1)
  
  '2000以降
  'std = Left(Mypath, Len(TextBox2.Value) - _
        InStr(1, StrReverse(TextBox2.Value), "\"))
  
  If TextBox1.Value = "" Or Dir(TextBox1.Value) = "" Then
    MsgBox "ファイルが見つかりません"
    End
  End If
  If OptionButton1 = True Then
    Workbooks.Open (TextBox1.Value)
  ElseIf TextBox2.Value = "" Or Dir(std, vbDirectory) = "" Then
    MsgBox "保存先のフォルダがありません。"
  Else
    Name TextBox1.Value As TextBox2.Value
  End If
End Sub

Private Sub TextBox1_Change()
  OptionButton2.Value = True
End Sub

Private Sub TextBox2_Change()
  OptionButton1.Value = True
End Sub

【5278】ありがとうございます
発言  ゆうこ  - 03/5/1(木) 18:26 -

引用なし
パスワード
   今思うと私としても焦っていたせいか、かなり内容が分かりづらい
質問だったと反省しています。

早速、試してみたいと思います。
不明な点があれば、また質問させて頂くことがあるかもしれませんが、
その時は、ご教示の方、どうかよろしくお願いします。

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