Excel VBA質問箱 IV

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

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


75899 / 76738 ←次へ | 前へ→

【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

2 hits

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

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