出力TreeViewPrintFormメソッド
どなたかおおしえねがえないでしょうか？また、かいひさく？などもあればよろしくおねがいします。ファイルがそんざいしないか、あるいは不正です。この時コピーされたシートのインデックスが２にならないんですが、なぜなんでしょ？やりたいことはコピーしたシートのなまえをExcelがかってにつけたなまえからへんこうしたいんです。う～ん…。「date60.ocx」については、Input Manをしようしているからかな？と考えているのですが、なぜこのようなエラーがでるのかがわからないのです。ExcelのVBAでシートのコピーExcel2000Win2000 複数（さいてい５）のシートがそんざいするExcelのBookでExcelのVBAをしようしてstrSheetName="XXX1"intSheetNo = 1Sheets(strSheetName).Copy after:=Sheets(intSheetNo)とシートのコピーをしています。」とでます。おねがいいたします。VB6.0でかいはつしたシステムをwin95でexeで実行テストをしているのですが、「コンポーネント'date60.ocx'、またはその依存かんけいのひとつがてきせつにとうろくされていません。 いつもお世話になっています。(ab"N1"cde"N11"fjh"N111"ij"N1111"k)のようなもじれつから(ab"N0001"cde"N0011"fjh"N0111"ij"N1111"k)のように Ｎ のあとの数字を4けたすうじにしたい場合はどうすればよいでしょうか？べんりなかんすうやほうほうがありましたらおしえてください。Sheets(intSheetNo + 1).Name = "XXX1-1"もじれつVisual Basic6.0よろしくおねがいします。コピーされたシートのインデックスが２になるとおもっていたのでうまくいきません。
保存VB&#
たぶん、ほぞんするときにSheet2をたいしょうにしているとおもうので、sheet１をたいしょうにしたいのですが・・・/******************VBをじっこうしたときのしょり********************/'アプリケーションのさんしょうSet xlApp = CreateObject("Excel.Application")'ブックのさんしょうSet xlBook = xlApp.Workbooks.Open("C:￥テスト￥テスト.Xls")'シートの参照Set xlSheet = xlBook.Worksheets("Sheet1")。Excelがきどうしているかを通知するほうほうお世話になります、げんざいVBでかいはつをおこなっているのですが、VBからExcelをきどうして、VBがわでそのExcelがひらいているか、とじているかをしるほうほうをさがしています。VBをじっこうしたときにExcelのsheet1にほぞんしたいのですが、どうすればいいかわかりません、おしえてください。よろしくおねがいします。VBからEXCELをほぞんVBからEXCELにほぞんしたいのですが、ぜんじゅんびとしてEXCELのsheet2でほぞんします。
;testコード
あなたは、ちょくせつコードにかくはですか？ さいだいげんにIDEの力をかりる派ですか？コンボボックスからファイルを指定して、マクロをじっこうするには？EXEL VBAで、コンボボックスから2しゅうぶんのファイルをえらび、そのファイルの差をさんしゅつするマクロをくみたいのですが、どうしてもコンボボックスでえらんだファイルをへんすうにかえてマクロをじっこうすることが出来ません。IDEじょうで直接せっていできるプロパティはVSでせっていしていますか？プロパティなどちょくせつコードをかかなくてもVS2005ではせっていできます。どうしたらよいのでしょうか？（げんざいさくせいちゅうのマクロをかきにはりつけました）Private Sub UserForm_Initialize() With Application.FileSearch 'けんさくさきフォルダをしていする .LookIn = "F:￥Sample2008￥すうじファイル(test)" 'けんさくするファイルめいをしていする .Filename = "*.xls" 'けんさくをじっこうする If .Execute() > 0 Then For i = 1 To .FoundFiles.Count Workbooks("へんこうぶん.xls").Worksheets("変更すうじかくにんシート").Cells(i, 151).Value = .FoundFiles(i) Next i Else MsgBox "ファイルがみつかりません" End If End With With UserForm1 'リストの項目にセルをしていする .ListBox5.RowSource = Workbooks("へんこうぶん.xls&quo。