質問編集履歴
3
修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -29,5 +29,15 @@
|
|
|
29
29
|
```
|
|
30
30
|
|
|
31
31
|
|
|
32
|
+
[リンク内容](http://officetanaka.net/other/extra/tips15.htm)
|
|
33
|
+
上記のサイトで、ドライブ文字を割り当てていないネットワークドライブに、カレントドライブを変更することはできません。と記述されていました。
|
|
34
|
+
解決策として【WSHを使うやり方】が載っていました。
|
|
35
|
+
```
|
|
36
|
+
Sub Sample2()
|
|
32
|
-
|
|
37
|
+
With CreateObject("WScript.Shell")
|
|
38
|
+
.CurrentDirectory = "\\EPSON\E\Develop\"
|
|
39
|
+
End With
|
|
40
|
+
MsgBox CurDir
|
|
41
|
+
End Sub
|
|
42
|
+
```
|
|
33
|
-
|
|
43
|
+
これを自分の処理にどうくわえたらよいのでしょうか？改めて力を貸していただけると助かります。
|
2
修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -26,4 +26,8 @@
|
|
|
26
26
|
|
|
27
27
|
ADO.SaveToFile SAVEPATH & "/" & TEXTFILE, 2 ←ここでエラー
|
|
28
28
|
ADO.Close
|
|
29
|
-
```
|
|
29
|
+
```
|
|
30
|
+
|
|
31
|
+
|
|
32
|
+
|
|
33
|
+
エラーコードで調べてみたら上記の説明を見つけました。これが原因なのでしょうか？
|
1
修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -2,26 +2,28 @@
|
|
|
2
2
|
’アプリケーション定義またはオブジェクト定義のエラーです’とエラーが発生します。
|
|
3
3
|
変数SAVEPATHには保存先のパス、TEXTFILE保存ファイル名が定義されています。わからないのはSAVEPATHがローカルのパスだった場合はエラーが発生せず保存できるのですが、サーバーのパスだった場合だと保存がなされないことです。原因の解決方法がわかる方がいたら助けていただけると嬉しいです。
|
|
4
4
|
|
|
5
|
+
|
|
6
|
+
```
|
|
5
7
|
Set ADO = CreateObject("ADODB.Stream")
|
|
6
|
-
|
|
8
|
+
ADO.Charset = "UTF-8"
|
|
7
|
-
|
|
9
|
+
ADO.Mode = 3 '書き込みモード
|
|
8
|
-
|
|
10
|
+
ADO.Type = 2 'テキストデータ
|
|
9
|
-
|
|
11
|
+
ADO.Open
|
|
10
12
|
|
|
11
13
|
//----------------//
|
|
12
14
|
テキストの内容作成
|
|
13
15
|
//----------------//
|
|
14
16
|
|
|
15
17
|
ADO.Position = 0 'ストリームの位置を0にする
|
|
16
|
-
|
|
18
|
+
ADO.Type = 1 'データの種類をバイナリデータに変更
|
|
17
|
-
|
|
19
|
+
ADO.Position = 3 'ストリームの位置を3にする
|
|
18
20
|
|
|
19
|
-
|
|
21
|
+
Dim byteData() As Byte '一時格納用
|
|
20
|
-
|
|
22
|
+
byteData = ADO.Read 'ストリームの内容を一時格納用変数に保存
|
|
21
|
-
|
|
23
|
+
ADO.Close '一旦ストリームを閉じる（リセット）
|
|
22
|
-
|
|
23
|
-
|
|
24
|
+
ADO.Open 'ストリームを開く
|
|
24
|
-
|
|
25
|
+
ADO.Write byteData 'ストリームに一時格納したデータを流し込む
|
|
25
26
|
|
|
26
|
-
|
|
27
|
+
ADO.SaveToFile SAVEPATH & "/" & TEXTFILE, 2 ←ここでエラー
|
|
27
|
-
|
|
28
|
+
ADO.Close
|
|
29
|
+
```
|