- ベストアンサー
エクセル ＶＢＡ パスの記述方法を教えてください。
cistronezkの回答
- cistronezk
- ベストアンサー率38% (120/309)
まだ状況が飲み込めないのですが、 "C:\Documents and Settings\" & UserName & "\My Documents\販売管理\0000年00月決算" Z:\5TM\販売管理\0000年00月決算 Ｄ:\販売管理\0000年00月決算 「Sub フォルダ作成()」の中で、３ドライブ全部にフォルダを作成する必要があるのですか？ それとも３ドライブのうちのどれか一つだけですか？もしひとつだけなら、それはユーザが決めるのですか？あるいは、プログラム側で他の条件を見て判断しなといけのでしょうか？
関連するQ&A
- フォルダ名の変更方法を教えてください。VBA
セルH14に年度が入力してあります。 → (例) ２００９ セルK14に月が入力してあります。 → (例) １１ このセルH14の値を ｙｙｙｙ に,セルK14の値を mm に入れたフォルダ名に変更したいのですが可能でしょうか、 御教示御願申し上げます。 Sub フォルダ名の変更() Name "C:\Documents and Settings\aaa\My Documents\販売\0000年00月決算" _ As "C:\Documents and Settings\aaa\My Documents\販売\yyyy年mm月決算" 下記のように ↓ ' As "C:\Documents and Settings\aaa\My Documents\販売\2009年11月決算" End Sub
- ベストアンサー
- オフィス系ソフト
- フォルダ名の記述方法について御教示ください。VBA
いつも御指導ありがとうございます。 皆様に御指導いただきながら、得意先別元帳の項目（前月残・当月入金・売上・残高等）の金額を取得して売掛金管理表を作成しています。 得意先別元帳のフォルダ名を年度（yyyyの部分）としている為に、変更しないと毎年使用できません。 売掛金管理表のセル（L5）に、年度が記載されていますので、それを利用してみましたが上手く出来ません。 変更しないで処理出来るようにするための記述を御教示御願申し上げます。 ●フォルダ構成 C:\Documents and Settings\aaa\My Documents\販売\yyyy年11月決算\売掛金元帳 ー 各得意先ファイル C:\Documents and Settings\aaa\My Documents\販売\yyyy年11月決算\管理表 ー 売掛金管理表と買掛金管理表ファイル Sub GetDatainFolder6() '管理表の作成 Dim i As Long Dim Fname As String Dim ans As Variant DoEvents Const myFolder As String = "C:\Documents and Settings\aaa\My Documents\販売\yyyy年11月決算\売掛金元帳\" Fname = Dir(myFolder & "*.xls") Do Until Len(Fname) = 0 FormPickUP Range("C6").Offset(i), myFolder & Fname, "6月" Range("C6").Offset(i).Resize(, 7).Value = _ Range("C6").Offset(i).Resize(, 7).Value Range("D6").Offset(i).Value = Mid(Fname, 1, InStrRev(Fname, ".") - 1) '拡張子は取る i = i + 1 Fname = Dir() Loop End Sub Function FormPickUP(rng As Range, ByVal myBk As String, ByVal mySh As String) 省略 End Function 宜しく御願いいたします。
- ベストアンサー
- オフィス系ソフト
- リンクのVBAを教えてください。
いつも、御指導ありがとうございます。 売掛金元帳のセル（J3）に数式１で、[得意先登録.xls]得意先登録から社名を表示させています。 ●数式１ '=IF($C$2="","",IF(ISERROR(VLOOKUP($C$2,'C:\Documents and Settings\aaa\My Documents\販売管理 \登録 （台帳）\[得意先登録.xls]得意先登録'!$D$7:$E$65536,2,FALSE)),"未登録です", VLOOKUP($C$2,'C:\Documents and Settings\aaa\My Documents\販売管理 \登録 （台帳）\[得意先登録.xls]得意先登録'!$D$7:$E$65536,2,FALSE))) 売掛金元帳のセル（E2）に数式２で、[自社情報登録.xls]自社情報'!$C$3から自社名を表示させています。 ●数式２ '='C:\Documents and Settings\aaa\My Documents\販売管理\登録 （台帳）\[自社情報登録.xls]自社情報'!$C$3 ●数式１及び数式２をVBAで記述したいのですがど、うしても記述出来ません。 ●まるなげになってしまいますが、数式１及び数式２と、社名変更があった場合は売掛金元帳へ反映させるVBAを教えてください。 宜しく御願いいたします。
- 締切済み
- オフィス系ソフト
- VBAマクロ、パスがありませんでとまります。
Excel2003 VBAのコードを作成して、 実行しましたら ”実行時エラー'76' パスが見つかりません。" と表示されて Open pase ...... の行でとまってしまいます。 なにが原因とかんがえられますか？ すいませんが、ご回答よろしくおねがいいたしますm(_ _)m Sub Macro1() Dim strarray() As Variant Dim counter As Integer Dim i As Long pase="C:\Documents and Settings\user\My Documents\" myname=Dir("C:\Documents and Settings\user\My Documents\",vbNormal) Do While myname <> "" If (GetAttr("C:\Documents and Settings\user\My Documents\" &_ myname) And vbNormal) = vbNormal Then ReDim Preserve strarry(counter+1) strarray(counter) = myname counter = counter + 1 End If myname = Dir Loop For i = 1 to counter Open pase & strarray(i) For Input As #1 Do Until EOF(1) ・ '処理 ・ ・ Loop Next i
- ベストアンサー
- Visual Basic
- アクセスする方法
telnet でアクセスしようとすると拒否されます。 どうしたらアクセスできるでしょうか？ ログインユーザーは管理者権限を持っています。(ビルドイン) myDoc対象ユーザーも管理者権限を持っています。 C:\Documents and Settings\*****>cd My Documents アクセスが拒否されました。 C:\Documents and Settings\*****>cacls "My Documents" C:\Documents and Settings\*****\My Documents アクセスが拒否されました。 C:\Documents and Settings\*****>cacls "My Documents" /t /p administrator:F よろしいですか (Y/N)?y アクセスが拒否されました。 普通は(OI)(CI)(IO)F とか出てきますよね。
- 締切済み
- Windows XP
- エクセル ＶＢＡ バッチが動かない。
以下のＶＢＡを試行錯誤の末（未熟なもので・・） 作ってみました。 デスクトップ上のフォルダを確認にて、存在する場合はそのままバッチ実行、 存在しない場合はフォルダを作成してバッチ実行。 というものなのですが、フォルダが存在する場合はすんなり行くのですが、 存在しない場合、フォルダを作成した後、バッチ処理がされなくて 困っています。どこが悪いのでしょうか？ 是非ご教授お願いいたします。 ちなみにバッチはＸＣＯＰＹです。 Sub SET_Original() Dim strPATHNAME As String strPATHNAME = "C:\Documents and Settings\ユーザー\デスクトップ\フォルダ" If StrConv(strPATHNAME, vbUpperCase) = "FALSE" Then Exit Sub If Dir(strPATHNAME, vbDirectory) = "" Then MsgBox "フォルダは作成します。", vbExclamation MkDir "C:\Documents and Settings\ユーザー\デスクトップ\フォルダ" Exit Sub End If Dim str As Variant str = Shell("c:\Documents and Settings\ユーザー\デスクトップ\copy.bat") End Sub
- ベストアンサー
- オフィス系ソフト
- excel vba
excel ＶＢＡ (質問１） B7 セルに,DOC20071201_1231.xlsとはいっているとき下記の動作と同様のことをB7を使って表現するにはどうすればいいか。 Sub bookwo_open() Workbooks.Open Filename:="C:\Documents and Settings\taktta\My Documents\Log zzz\2007 log\2007年報告\2007年12月分\" & "DOC20071201_1231.xls" End Sub (質問２） Ａ１セルに７とはいっているとき、B7セルに入っているファイルをオープンするには、どうすればいいか。 （Ａ１セルにｎとはいっているとき、Bｎセルに入っているファイルをオープンするには、どうすればいいか。）
- ベストアンサー
- オフィス系ソフト
- VBAで統合ができない・・・。
エクセルのマクロの記録で作ったコードですが、実行すると「開けません」と出ます。 どこがいけないのでしょうか？ Sub Macro2() Selection.Consolidate Sources:=Array( _ "'C:\Documents and Settings\abcd\My Documents\2011\新規[対象2010.12.xls]店別集計'!R3C4:R69C10" _ , _ "'C:\Documents and Settings\abcd\My Documents\2011\新規\[対象2011.01.xls]店別集計'!R3C4:R69C10" _ ), Function:=xlSum, TopRow:=False, LeftColumn:=False, CreateLinks:= _ False End Sub
- ベストアンサー
- オフィス系ソフト
- 相対パスでも絶対パスでもない参照の記述方法？
C:\Documents and Settings\user_name\デスクトップ\index.html の<head>内に、 <link rel="stylesheet" href="/css/style.css" type="text/css"> と書かれているのですが、注視すると、 href="css/style.css" でも href="./css/style.css" でも href="../css/style.css" でもなく、 href="/css/style.css" なんです。これって、何処を指していますか？ C:\Documents and Settings\user_name\デスクトップ\index.html に対し、 C:\Documents and Settings\user_name\デスクトップ\css\style.css と置いてもstyle.cssは効きませんでした。 index.htmlをhogeディレクトリに入れて C:\Documents and Settings\user_name\デスクトップ\hoge\index.html C:\Documents and Settings\user_name\デスクトップ\css\style.css としても、style.cssを読み込みませんでした。 何でそんなことを聞くかというと、http://www.nikkansports.com/ のソースがそうなっています。例えば28行目の↓とか。 <script type="text/javascript" src="/js/css-home.js"></script> style.cssを、何処におけばいいのでしょうか？
- ベストアンサー
- HTML
- DOSコマンドで相対パスの取得の方法がわかりません。
ファイルパスが C:\Documents and Settings\ユーザー名\My Documents\My Music を My Music だけを取り出す方法が見つかりません。 どのように操作したら相対パスを取得することができるのでしょうか？
- ベストアンサー
- その他（プログラミング・開発）
補足
初心者のためご迷惑をおかけします、再度のご指示ありがとうございます。 MkDir "C:\Documents and Settings\" & UserName & "\MyDocuments \販売管理\0000年00月決算" (1) 上記に記述しました 「\" & UserName &」 は通常固有名詞か Administratorとなっていると思いますが、「\" & UserName &」 と記述する事で、どのような名称でもエラーは発生しないと御指導を受けました。 ドライブ名が複数あったり、「販売管理」を保存する階層が異なっても、「販売管理」の次の階層に「\0000年00月決算」を作成する事が可能な記述が出来ればと考えていますが、可能なのでしょうか？ 例えば、Ｚドライブでも Z:\5TM\販売管理\0000年00月決算 や Z:\販売管理\0000年00月決算など。 >(2) それとも３ドライブのうちのどれか一つだけですか？もしひとつだけなら、それはユーザが決めるのですか？あるいは、プログラム側で他の条件を見て判断しなといけのでしょうか？ ●使用する所、パソコンは一箇所づつです。その状態が複数発生します。 ●「販売管理」を保存する場所は、ユーザが決めます。 ●「\" & UserName &」 のように、プログラム側で他の条件を見て判断 し、「販売管理」の次の階層に「\0000年00月決算」 を作成する事が可能な記述があるのでしょうか ＊ｍｙＰａｔｈを使用すれば可能なのかと考えましたが、手がつけられません。 (3) ご指示にも、的確にご返事出来ませんが宜しくお願い申し上げます。