質問編集履歴
1
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,7 +1,7 @@
|
|
|
1
1
|
現在、VBAにてデータ処理の自動化を行っております。
|
|
2
|
-
|
|
2
|
+
I8～I500までのセルにcsvが開けるハイパーリンクを設定しているのですが そのリンクを開いてcsvを指定フォルダに保存していきたいです。名前は開いたデータと同じ名前のままでいいです。
|
|
3
3
|
|
|
4
|
-
現在下記のようなVBAを作成したのですが
|
|
4
|
+
現在下記のようなVBAを作成したのですがI8にあるリンクのcsvしか保存できませんでした。
|
|
5
5
|
選択範囲の中で値がなくなったら処理が終わりというVBAになります。
|
|
6
6
|
C5のセルには保存先のアドレスを記載しております。
|
|
7
7
|
また、最後にマクロを組んでいるExcelも閉じてしまうので、開いたままにしたいです。
|
|
@@ -13,14 +13,14 @@
|
|
|
13
13
|
Dim i
|
|
14
14
|
|
|
15
15
|
FolderName = Range("C5").Value
|
|
16
|
-
FilName = Range("
|
|
16
|
+
FilName = Range("I8").Value
|
|
17
17
|
|
|
18
18
|
Application.DisplayAlerts = False
|
|
19
19
|
Application.ScreenUpdating = False
|
|
20
20
|
|
|
21
|
-
If Application.CountA(Range("
|
|
21
|
+
If Application.CountA(Range("I8:I500")) > 0 Then
|
|
22
22
|
|
|
23
|
-
For i =
|
|
23
|
+
For i = 8 To 500
|
|
24
24
|
|
|
25
25
|
Workbooks("VBA.xlsm").Worksheets("Sheet1").Cells(i, 9).Select
|
|
26
26
|
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
|