|
こんにちは。
なかなかレスがつかないようなので、こんな感じもあり?って事で...。
シート上に
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
|
|