お世話になります
ＶＢ６のメモリ解放に関して、以下を参考に下記のコードで試したのですが、
コンパイルエラーで「配列には割り当てられません」となってしまいます。
http://okwave.jp/qa/q3372573.html
違いは宣言の型がStringかLongしかないと思うのですが、
なにが悪いのか教えていただけないでしょうか
******* 以下 ソース
Dim wProcDat() As Long
ReDim wProcDat(1 To 1000, 1 To 768)
中略
Set wProcDat = Nothing
Excel（Office 2007）で以下のようにシートモジュールで
発生したエラーの詳細を標準モジュール側で取得しようとしたところ
SourceとDescriptionで指定した文字列が取得できませんでした。
どうすれば指定した元の文字列を取得することができるでしょうか。
どなたかお知恵をお貸しください。
【シートモジュール（Sheet1）内のソースコード】
Public Sub Hoge()
Err.Raise Number:=1000, Source:="Fugo", Description:="Fuga"
End Sub
【標準モジュール内のソースコード】
Public Sub Piyo()
On Error Goto Error1
Sheet1.Hoge
Exit Sub
Error1:
MsgBox "Num=" & Err.Number & ", Src=" & Err.Source & ", Dsc=" & Err.Description
End Sub
【MsgBoxの表示結果】
Num=1000, Src=VBAProject, Dsc=アプリケーション定義またはオブジェクト定義のエラーです。
Excel（Office 2007）で以下のようにシートモジュールで
発生したエラーの詳細を標準モジュール側で取得しようとしたところ
SourceとDescriptionで指定した文字列が取得できませんでした。
どうすれば指定した元の文字列を取得することができるでしょうか。
どなたかお知恵をお貸しください。
【シートモジュール（Sheet1）内のソースコード】
Public Sub Hoge()
Err.Raise Number:=1000, Source:="Fugo", Description:="Fuga"
End Sub
【標準モジュール内のソースコード】
Public Sub Piyo()
On Error Goto Error1
Sheet1.Hoge
Exit Sub
Error1:
MsgBox "Num=" & Err.Number & ", Src=" & Err.Source & ", Dsc=" & Err.Description
End Sub
【MsgBoxの表示結果】
Num=1000, Src=VBAProject, Dsc=アプリケーション定義またはオブジェクト定義のエラーです。
セルの値で
フォルダやファイル名とファイルの内容を一気に保存したいのですが、
どうしても式がわかりません。。
やりたいことはここにまとめてます。
↓
http://bsmile.sakura.ne.jp/phptest/cc1.jpg
１
A列のフォルダと作って、
２
B行のファイル名で、
３
C行の内容のファイルを作りたいのです。
１については、
http://hamachan4.exblog.jp/10612140/
にある通り、
Dim mydir As String
Dim i As Integer
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
mydir = "C:\Users\user\Desktop\test\" & Cells(i, 1).Value
If Dir(mydir, vbDirectory) = vbNullString Then MkDir mydir
Next i
MsgBox "完了しました"
End Sub
フォルダを作る事はできそうなのですが、
２のフォルダパスをどう指定したらいいのか？
（３はなんとなくできそうなですが、）
で、色々みたんですが、どうしてもわからずで、
どういったVBAを組めばこの動作ができるでしょうか？
どうかよろしくお願いいたします。
m(_ _)m
Sub test()
Dim i As Long
i = 2000000000
i = 3000000000#
End Sub
この場合、 2000000000は問題ないけど、 3000000000から末尾に#が付きました。
どの数字からシャープが付くのでしょうか？
またシャープの意味はなんでしょうか？
ｖｂａのコードを実行するにおいて、＃があってもエラーになりませんでした。
お世話になります
エクセルVBA勉強中のものです。
任意に指定された、データの入っているセル範囲から
全データ範囲を取得するファンクションを
学習のため作ってみたのですが、
実行時にエラーとなります。
(スペル違いや大文字小文字違い、字下げしないなど、即興的にタイプしているのでご容赦下さい)
function Range_Scope（Sheet_Name1 As String,Range1 As Range) As Range
set Range_Scope = sheets(Sheet_Name1).Range1.currentregion
end function
本当は見出し行分、オフセットしてリサイズとこなのですが、
ポイントがずれると嫌なので、割愛します。
確か
型が違う
的なエラーだったと思います。
何故エラーになるのでしょうか？
ご指南を宜しくお願い致します。
