質問編集履歴
3
修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -60,6 +60,26 @@
|
|
|
60
60
|
|
|
61
61
|
|
|
62
62
|
|
|
63
|
-
|
|
63
|
+
[リンク内容](http://officetanaka.net/other/extra/tips15.htm)
|
|
64
64
|
|
|
65
|
+
上記のサイトで、ドライブ文字を割り当てていないネットワークドライブに、カレントドライブを変更することはできません。と記述されていました。
|
|
66
|
+
|
|
67
|
+
解決策として【WSHを使うやり方】が載っていました。
|
|
68
|
+
|
|
69
|
+
```
|
|
70
|
+
|
|
71
|
+
Sub Sample2()
|
|
72
|
+
|
|
73
|
+
With CreateObject("WScript.Shell")
|
|
74
|
+
|
|
75
|
+
.CurrentDirectory = "\\EPSON\E\Develop\"
|
|
76
|
+
|
|
77
|
+
End With
|
|
78
|
+
|
|
79
|
+
MsgBox CurDir
|
|
80
|
+
|
|
81
|
+
End Sub
|
|
82
|
+
|
|
83
|
+
```
|
|
84
|
+
|
|
65
|
-
|
|
85
|
+
これを自分の処理にどうくわえたらよいのでしょうか？改めて力を貸していただけると助かります。
|
2
修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -55,3 +55,11 @@
|
|
|
55
55
|
ADO.Close
|
|
56
56
|
|
|
57
57
|
```
|
|
58
|
+
|
|
59
|
+
|
|
60
|
+
|
|
61
|
+
|
|
62
|
+
|
|
63
|
+
|
|
64
|
+
|
|
65
|
+
エラーコードで調べてみたら上記の説明を見つけました。これが原因なのでしょうか？
|
1
修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -6,15 +6,19 @@
|
|
|
6
6
|
|
|
7
7
|
|
|
8
8
|
|
|
9
|
+
|
|
10
|
+
|
|
11
|
+
```
|
|
12
|
+
|
|
9
13
|
Set ADO = CreateObject("ADODB.Stream")
|
|
10
14
|
|
|
11
|
-
|
|
15
|
+
ADO.Charset = "UTF-8"
|
|
12
16
|
|
|
13
|
-
|
|
17
|
+
ADO.Mode = 3 '書き込みモード
|
|
14
18
|
|
|
15
|
-
|
|
19
|
+
ADO.Type = 2 'テキストデータ
|
|
16
20
|
|
|
17
|
-
|
|
21
|
+
ADO.Open
|
|
18
22
|
|
|
19
23
|
|
|
20
24
|
|
|
@@ -28,26 +32,26 @@
|
|
|
28
32
|
|
|
29
33
|
ADO.Position = 0 'ストリームの位置を0にする
|
|
30
34
|
|
|
31
|
-
|
|
35
|
+
ADO.Type = 1 'データの種類をバイナリデータに変更
|
|
32
36
|
|
|
33
|
-
|
|
37
|
+
ADO.Position = 3 'ストリームの位置を3にする
|
|
34
38
|
|
|
35
39
|
|
|
36
40
|
|
|
37
|
-
|
|
41
|
+
Dim byteData() As Byte '一時格納用
|
|
38
42
|
|
|
39
|
-
|
|
43
|
+
byteData = ADO.Read 'ストリームの内容を一時格納用変数に保存
|
|
40
44
|
|
|
41
|
-
|
|
45
|
+
ADO.Close '一旦ストリームを閉じる（リセット）
|
|
42
46
|
|
|
43
|
-
|
|
47
|
+
ADO.Open 'ストリームを開く
|
|
44
48
|
|
|
45
|
-
ADO.Open 'ストリームを開く
|
|
46
|
-
|
|
47
|
-
|
|
49
|
+
ADO.Write byteData 'ストリームに一時格納したデータを流し込む
|
|
48
50
|
|
|
49
51
|
|
|
50
52
|
|
|
51
|
-
|
|
53
|
+
ADO.SaveToFile SAVEPATH & "/" & TEXTFILE, 2 ←ここでエラー
|
|
52
54
|
|
|
53
|
-
|
|
55
|
+
ADO.Close
|
|
56
|
+
|
|
57
|
+
```
|